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Forza quattro! Dalla TV un 
gioco “esperto” per Apple 


L’idea di scrivere questo programma è nata dai desiderio di sperimentare le 
tecniche solitamente usate nei programmi che giocano a scacchi in un caso 
sufficientemente semplice da poter utilizzare un linguaggio ad alto livello. 


Figura 1 - La videa!a di 
una partita di Forza- 
quattro, vincente se be¬ 
ne opereremo ... 




di C. Magnaghi 

( compilatori producono infatti un codice 
macchina (o un P-code che deve essere 
ulteriormente interpretato nel caso del Pascal) 
particolarmente inefficiente rispetto a un assem¬ 
bler, ma offrono il notevole vantaggio, per chi 
vuole provare delle particolari tecniche di pro¬ 
grammazione, di un codice sorgente sufficiente- 
mente facile da leggere. 

Il gioco forzaquattro si è dimostrato particolar¬ 
mente adatto a questo scopo; infatti, pur essen¬ 
do sufficientemente stimolante, presenta un al¬ 
bero di gioco con un indice di diramazione (nu¬ 
mero di mosse possibili in una data posizione) 
particolarmente basso (sono possibili al più sette 
mosse mentre, per esempio negli scacchi il nu¬ 
mero tipico di mosse possibili si aggira sulla venti¬ 
na) e tuttavia la notevole profondità dell'albero 
di gioco impedisce una analisi esaustiva delle 
situazioni possibili. 

L'importanza dell'indice di diramazione è parti¬ 
colarmente importante per quanto riguarda il 
tempo di calcolo, infatti è evidente che il numero 
di rami terminali presenti in un albero con indice 
di diramazione D e con una profondità H è di 
DAH e, pur potendo ridurre il numero di rami ter¬ 
minali da considerare a 2^DA(H/2), è pratica- 


mente impossibile scrivere in un linguaggio ad 
alto livello e su un piccolo elaboratore un pro¬ 
gramma che giochi, per esempio a scacchi, 
analizzando l'albero di gioco fino a una profondi¬ 
tà, per esempio, di quattro livelli. 

Il metodo usato per l'analisi dell'alberoè quello 
dei minimi e massimi (si tratta quindi di un tipo di 
ricerca su alberi di tipo ben diverso da quello 
descritto da Gregg Williams nell'articolo tradotto 
in italiano su Personal Software) e per ridurre il 
numero di rami terminali da analizzare è stato 
usato l'algoritmo alfa-beta senza ordinamento 
(da prove effettuate è risultato che il tempo im¬ 
piegato per ottimizzare l'ordine di valutazione dei 
rami non è compensato da un guadagno nell'ef¬ 
ficienza dell'algoritmo dei minimi-massimi in un 
albero tanto ridotto). Ne è risultato un program¬ 
ma sufficientemente abile nel gioco, ma è emer¬ 
so nel corso di varie prove che il gioco Forzaquat¬ 
tro presenta singolari strutture per le quali in una 
delle prime mosse è possibile forzare partite che 
porteranno alla vittoria verso la quarantesima 
mossa. 

Per esempio consideriamo la partita in figura 1, 
credo possa essere utile al fine della comprensio¬ 
ne del problema dimostrare che esiste una mos- 
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sa che assicura al bianco la vittoria molto più 
tardi nella partita, darò quindi più tardi la soluzio¬ 
ne di questo problema. 

Credo comunque sia assurdo sperare che una 
analisi svolta a una profondità limitata sia in gra¬ 
do di rivelare simili situazioni. Non resta quindi che 
munire il programma di una libreria di mosse 
sconsigliate. 

Prima di descrivere con maggior dettaglio le tec¬ 
niche usate nel programma vorrei motivare la 
scelta del linguaggio e spiegare come gli utenti 
con singolo drive che volessero cimentarsi nell'Im¬ 
presa possano scrivere compilare e linkare il pro¬ 
gramma (per gli utenti con più di un drive non 
dovrebbero sussistere problemi). 

Il primo linguaggio che può venire in mente di 
usare sull'Apple è certamente il BASIC, ma questo 
linguaggio presenta vari difetti: per prima cosa è 
lento, a meno che non lo si compili, poi mancan¬ 
do della possibilità di definire sottomoduli ha una 
forte tendenza a trasformare programmi (la cui 
struttura è già poco chiara nella mente dell'auto¬ 
re che sta cercando di sperimentare delle idee e 
che quindi andrà incontro n molte successive 
revisioni) in masse amorfe di istruzioni da cui risul¬ 
ta poi impossibile discernere la struttura del pro¬ 
gramma stesso. Inoltre, pur essendo possibile scri¬ 
vere processi ricorsivi, le strutture di programma e 
di dati che bisogna inserire perfare ciò che in altri 
linguaggi (LISP e Pascal) è del tutto naturale, 
finirebbero per soffocare completamente la strut¬ 
tura del programma il che spingerebbe prima o 
poi l'autore a rinunciare all'impresa. I motivi che 
mi hanno indotto a rinunciare al BASIC portano 
anche a scartare il FORTRAN nel quale inoltre è 
stato fatto ogni sforzo per rendere illegale l'uso 
della ricorsione, il linguaggio macchina era già 
stato escluso perchè incompatibile con i fini del 
programma (ma rientrerà più tardi risolvendo 
trionfalmente una situazione che sembrava sen¬ 
za speranza), il FORTH ha il difetto di avere un 
codice sorgente praticamente illeggibile ed è 
quindi poco adatto a un programma soggetto a 


successive riletture. Il LISP pur essendo un linguag¬ 
gio a volte simpatico da usare non ha istruzioni di 
sistema per utilizzare le matrici (l'idea era di me¬ 
morizzare la scacchiera come una matrice), e 
cercare di gestire le matrici come liste di liste da 
cui estrarre gli elementi con le istruzioni CAR e 
CDR è un processo troppo lungo in termini di 
tempo per un programma che mostra una forte 
tendenza a divenire un manipolatore di matrici. 

Non resta quindi che il Pascal (non ho a disposi¬ 
zione il Modula 2, un linguaggio che avrebbe, 
almeno sulla carta, brillantemente risolto alcuni 
problemi incontrati nella scrittura del program¬ 
ma). Coloro che, utenti di singolo drive, ben co¬ 
noscono i problemi dell'editazione di un pro¬ 
gramma di grosse dimensioni si domanderanno 
quanto spazio occupa su dischetto il codice sor¬ 
gente del programma che sto descrivendo, non 
impressionatevi, solo ventotto settori. Abbastanza 
per non stare sull'AppleO insieme al suo codice 
oggetto. Il motivo per cui non dovete preoccu¬ 
parvi è che parecchio spazio può essere liberato 
su detto dischetto in caso di necessità: infatti il file 
SYSTEM.SYNTAX è del tutto superfluo (basta tener 
aperta la pagina 137 del manuale) e il SYSTEM.Fl- 
LER può essere lanciato indifferentemente da 
qualsiasi dischetto (basta poi far attenzione a 
rimettere nel drive il disco di bootstrap prima di 
abbandonare il filer). Cancellando questi due file 
dall' AppleO c'è spazio sufficiente sul dischetto 
per editare in tutta tranquillità: basta poi assem¬ 
blare la funzione VALUE, trasferire il codice ogget¬ 
to su AppleO, lanciare il LINKER e seguire le istruzio¬ 
ni. 

È inoltre necessario prima di poter utilizzare il 
programma, compilare e far girare un program¬ 
ma ausiliario denominato MAKEPIC che crea un 
file denominato PICTURES contenente le immagi¬ 
ni che verranno utilizzate dal programma princi¬ 
pale.Consiglio inoltre di non inserire in un primo 
momento l'opzione R- nel programma, in quanto 
questo potrebbe contenere degli errori che senza 
questa opzione sono più facili da trovare, potrete 
poi ricompilare il programma con questa opzio¬ 
ne per farlo girare leggermente più veloce. 

Il cuore del programma è la funzione RVALUE 
(dove R sta per ricorsivo), questa funzione svilup¬ 
pa l'analisi dell'albero di gioco fino a una profon¬ 
dità che viene determinata dalla funzione chia¬ 
mante CHOICE a seconda dell'indice di dirama¬ 
zione previsto per l'albero di gioco (questo per 
approfittare deile situazioni più semplici analiz¬ 
zandole più a fondo) con il già citato metodo dei 
minimi-massimi. Arrivata alla massima profondità 
RVALUE invece di richiamare se stessa chiama la 
funzione VALUE che essendo la parte di program¬ 
ma maggiormente usata è stata scritta in lin¬ 
guaggio macchina per ridurre i tempi di calcolo 
(i risultati di questa scelta sono stati entusiasman¬ 
ti : scrivendo in codice macchina questa piccola 
porzione di programma il tempo di elaborazione 
è sceso da circa cinque minuti a circa venti se¬ 
condi per le mosse più complesse). RVALUE cal¬ 
cola poi il massimo o il minimo (a seconda della 
parità del livello a cui chiama la funzione VALUE) 
dei valori per le varie colonne e assegna questo 
valore alla posizione. Il valore della mossa viene 
quindi calcolato ricorsivamente. 

Cercherò di essere più chiaro con un esempio : 
supponiamo che il calcolatore stia cercando 
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che valore ha per lui una certa mossa A: qual'è il 
valore di A? E' il minimo dei valori delle contro¬ 
mosse possibili (infatti l'avversario cercherà di mi¬ 
nimizzare il suo guadagno : questo è il concetto 
che stà alla base del metodo dei minimi¬ 
massimi); analogamente il valore di ciascuna 
contromossa è il massimo dei valori delle contro - 
contromosse possibili. È chiaro come questa defi¬ 
nizione generi un processo ricorsivo. 

Ma abbiamo detto all'inizio che questo proce¬ 
dimento da solo è inadeguato. 

Per spiegare come il calcolatore risolva questo 
problema introdurrò da prima una notazione, 
che tra l'altro è la stessa utilizzata dal calcolatore 
per analizzare le partite. 

E' ovvio da come è definito il gioco che per indi¬ 
care una mossa è sufficiente indicare la colonna 
in cui si intende muovere, una notazione com¬ 
patta è quindi la seguente: C 33323... 
intendendo con C indicare che ha mosso per 
primo il calcolatore, col primo 3 che ha mosso 
nella terza colonna, col secondo che anche il 
giocatore ha mosso nella terza colonna e così 
via. 

Supponiamo ora che il calcolatore dopo aver 
memorizzato la partita fino a un certo punto, 
diciamo C 323562 (i numeri sono messi a caso) si 
accorga di non avere più alcuna possibilità; allo¬ 
ra dovrà concludere che la mossa da lui fatta 
precedentemente era sbagliata; metterà quindi 
nel suo libro nero la seguente partita C 32356; ora 
guarda il libro nero e trova che di fianco a questa 
ve ne sono altre simili e che la pagina del libro 
nero risulta: 

C 32356 

C 32355 

C 32354 

Ora nota che le colonne 1 e 2 erano impraticabili 
(perchè piene) e che in un altro taccuino aveva 
segnato che 2 colonne venivano già segnalate 
dall'algoritmo dei minimi-massimi come perden¬ 
ti, ma 3+2+2=7 e quindi non ci sono proprio 
mosse accettabili. 

Questo significa che la mossa precedente era 
errata e quindi il calcolatore sostituirà alle partite 
presenti nella pagina la partita C 323. 

Si noti che questa nuova informazione non è 
solo un riassunto delle precedenti per risparmiare 
spazio, ma è una sintesi costruttiva; infatti ora il 
calcolatore che mentre gioca guarda il libro nero 
si renderà conto con una mossa di anticipo che 
stà andando in un vicolo cieco. 

Il processo descritto viene iterato fin quando è 
possibile, cercando di sintetizzare al massimo le 
informazioni presenti in memoria ogni volta che 
ne viene inserita una nuova: tale lavoro viene 
svolto dal sottoprogramma LEARN e utilizzato dal¬ 
la funzione BADGAME. 

Naturalmente il calcolatore può impiegare un 
numero di partite inaccettabilmente elevato per 
capire qual'è l'errore effettivo, se un errore che 
provoca la sconfitta quando il tabellone è com¬ 
pletamente pieno si verifica nelle primissime mos¬ 
se; a questo scopo è stato inserito il comando I 
per segnalare al calcolatore che la mossa appe¬ 
na eseguita è debole; con questo comando, do¬ 
po aver chiesto conferma, il calcolatore inserisce 
la partita fin qui memorizzata nel libro nero; è 
naturalmente vostra responsabilità far si che le 
mosse segnalate come deboli lo siano realmen¬ 


te; inoltre questo tipo di inserimento non cancel¬ 
lerà necessariamente le informazioni divenute 
superflue: per esempio l'inserimento di C 13574 
può non cancellare un già presente C 13574574 
(i numeri sono sempre messi a caso). 

Vorrei qui notare che, utilizzando il calcolatore 
il generatore di numeri casuali solo per la prima 
mossa non sarebbe necessario ricordare anche 
le mosse che lui ha fatto (eccetto la prima) es¬ 
sendo queste implicitamente determinate dalle 
mosse fatte dal giocatore ed eventualmente dal¬ 
la sua prima mossa. 

Il motivo per cui questo metodo non è stato usato 
è che, essendo stata ammessa la possibilità che il 
giocatore segnali al calcolatore che una mossa 
è debole, si rende necessario creare dei dati es¬ 
pliciti e facili da rivedere; questo sarebbe impossi¬ 
bile se il calcolatore per mostrare una partita (in 
un eventuale programma atto all'analisi del file 
che il calcolatore crea su disco) dovesse pratica- 
mente rigiocarla tutta. 

Vorrei concludere descrivendo alcuni bug che 
ho trovato nel Apple Pascal o nella sua docu¬ 
mentazione sviluppando il programma: 

1 ) il parametro yskip della procedura drawblock 
(pag. 96) non funziona. 

2) Drawblock e fillscreen sembrano utilizzare in 
modo diverso i parametri definiti da viewport: in 
particolare drawblock non scrive nell'ultima co¬ 
lonna liberata da un comando del tipo fillscreen 
(blqck). 

3) Il manuale del sistema operativo mostra a 
pagina 255 che il Pascal data heap parte dalla 
locazione $C00; in realtà usando la grafica que¬ 
sto non è più vero e il data heap parte da $4000 

4) Gli operatori >,<,<=,>= non sono utilizzabili 
con gli array( questo a onor del vero è riportato sul 
manuale in modo implicito quando a pagina 85 
questi operatori non vengono riportati insieme a 
< > e a =. 

Questi problemi del tutto secondari non possono 
tuttavia modificare il mio giudizio più che positivo 
sull'Apple Pascal come linguaggio di uso gene¬ 
rale. 

Per concludere un plauso a una innovazione 
che il Modula 2 porta rispetto al Pascal: l'elabora¬ 
zione condizionale delle espressioni logiche; que¬ 
sto significa che A OR B se A è vero può essere 
calcolato e vale vero qualunque sia il valore di B 
anche se questo non è definito, un caso tutt'altro 
che raro quando si opera con variabili dinami¬ 
che. 

Ah, quasi dimenticavo; la soluzione al problema 
proposto è muovere nella colonna 4 e successi¬ 
vamente muovere ogni volta nella stessa colon¬ 
na in cui ha mosso il nero: è facile vedere che in 
questo modo prima o poi si vince comunque. 


Il gioco Forzaquattro è stato pubblicizzato po¬ 
chi mesi or sono in televisione ed è diventato 
abbastanza conosciuto e diffuso. 

Si gioca su un tabellone verticale formato da sei 
righe e sette colonne; le pedine vengono lasciate 
cadere dall'alto e vanno a posarsi nella casella 
libera più in basso della colonna scelta. 

Scopo del gioco è riuscire ad allineare quattro 
pedine in orizzontale, verticale o diagonale pri- 


II gioco 
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ma dell'avversario. É possibile che dopo aver ri¬ 
empito tutto il tabellone nessuno dei due gioca¬ 
tori sia riuscito nell'intento: in tal caso la partita 
risulta patta. 

Nella versione per calcolatore il tabellone di gio¬ 
co viene mostrato sul monitor e il calcolatore 
chiede al giocatore chi deve giocare per primo. 
Sono possibili tre risposte: 

Utilizzatore; 

Calcolatore; 

Abbandono; 

questa ultima opzione è disponibile sempre in 
fase di input ad eccezione di quando il calcola¬ 
tore chiede conferma di un comando dato dal¬ 
l'utente e sostituisce il classico CTRL-@ che non 
deve più essere utilizzato, in quanto dopo ogni 
seduta di gioco il calcolatore deve salvare su 
dischetto le nuove informazioni elaborate sul gio¬ 
co stesso. 

Quando il giocatore deve muovere, compare 
sullo schermo in alto un segno indicante la colon¬ 
na in cui ha mosso il calcolatore; questo segno 
agisce poi come cursore per i comandi successi¬ 
vi: 

< (senza premere lo SHIFT) sposta il cursore a 
sinistra. 

> sposta il cursore a destra. 

<SPACE> lascia cadere la pedina nella colonna 
su cui è posizionato il cursore. 

Abbandona'' esce definitivamente dal pro¬ 
gramma. 

"Insegna" segnala al calcolatore che l'ultima 
mossa da lui fatta è debole, il calcolatore chiede 
conferma e poi riprende la fase di input conti¬ 
nuando la partita. 


"Riparti" termina la partita e ritorna nella condi¬ 
zione iniziale. 

"Suono" attiva o disattiva le subroutine di suono 
del calcolatore (particolarmente utile quando si 
gioca in ufficio...) 


I messaggi del calcolatore 

Nella presente versione i messaggi del calcola¬ 
tore sono in italiano. Personalmente preferisco i 
messaggi in lingua inglese; nel programma ho 
quindi lasciato scritti i messaggi inglesi equiva¬ 
lenti come commento. 

Chi preferisce questa seconda versione non 
deve far altro che sostituire a ciò che compare 
nel programma quello che compare di fianco o 
comunque nelle immediate vicinanze come 
commento; l'unica eccezione è il terzultimo 
commento della procedura start: 

( ★MOVE(1 ); 

WCHAR (CHR(1 ));★) 
che va solamente inserito. 
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<*$L. CONSOLE:*) 

PROGRAM makep1c; 

VAR 

f:FILE OF PACKED ARRAYLI 


4 


1 -.48 3 OF 


boolean: 


PR0CEL)URE c on v < r ow: 1 n t eger ; s t r 48 : st r 1 n g ) : 
VAR i: 1 nteger; 

BEGIN 

FOR i:=1 TO 48 DO 
•f L r ow, 3. Il : = < st r 48 r i 11 = 7 * 7 ) 

END; 


PROCEDURE sub 1 ; 


BEGIN 
conv(24, 7 
conv ( 23„ 7 
conv <22, 7 
conv <21, 7 
conv(20, 7 
conv ( 19 jì 7 
conv(18, 7 
conv < 1 7 , 
conv(16, 7 
conv(15, 7 
conv(14, 7 
conv(13, 7 
END; 


* .. * 

n 

* ; s * 

* ; r. ; * 

*::;;* 

* * * ; ; s * * * 

*::**::**:;** 
***:;:::* 


* : 

Ai » « »» 

a ts a 

* ; ; ; 


u u n 


* 


■ nsu nu»* 
n n n " ■ « * 

* 


* * * * * * * * 
****** 

* * * * 

* * * 

** 

* * 

* 


********’); 
*******); 
* * * * ’ ) ; 

***’); 
* * ’ > ; 

* * * ) ; 
* ’ ) ; 

* > ; 
? > ; 
•- > ; 
7 > ? 


Figura 2-11 listato. 
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Seguito figura 2. 



PROCEDURE sub2; 


BEO IN 


con v ( 1 ,, 

« n «i « •* n ■ n n •» il n n m 1 ' 

'r a « j: .1 t: n o u a it 11 :t x a 




L. OD V ^ 3 1 q 

Ài' fi II u u n n n m m m ti 11 11 n ' 4 r 

“'nttaaa.tneasuoun'p 



•* 

conv ( 1 . 0 , 

i- • M 11 11 n « « • n n h ■ b « i 

e js « u r s s u v 11 u u n .1 “ • 



:* 

conv( 9, 7 

•4/ n • . • . . . 1 . » » a a . • 4j 

T 11 n b ■ a • a a tt 9 a it s u . 



•* 

r 0 i"'j y ( A 

w 11 11 k n b « n u 11 11 ■ n 11 « • 4 

ir t: -j x a n u ri m u n 1 ; n r, T- 

* 


■i ' 

c o n v ( 7 

/ PRt:cuaitlinnMn 39 B'r 

* 


* 7 

conv < òr, 7 

4 / n r. n n « • n 11 1 m n n ■ Ài 

Tsa^affavi. nnu aeT 

it * 


* * '• 

conv( 5 1 7 

jrnuanmmti una* Àf 

TxuiBaDNRnaaT 

* * 


^ ^ •* 
n y n* 

conv < 4 , -’ 

4 ' 11 1 * ■ Àf "À' u 11 n Àr’ 'H 

. a a e T :: ti a 'T . 

* * * 


% % » 7 

Cun v \ 

* * * * * * 

* # * * 


* % * % ‘ 

conv ( 2 ,,' 


* * * t t 


* *t *** ' 

conv( 1 „ 7 




itk* (< % * * 

END ; 





PROCEDURE sub 

•r n 




BEG 1 N 





conv ( 24 , 7 




:• 

conv ( 23 ,- 

* 


* 

Jl 

conv ( 22 , 7 

* * 


** 


conv ( 21 , 7 

* * * 


* * 

Jl 

conv ( 20 , 7 

* * * * 


* * 

? 

conv ( 19 , 7 

* * * 


* * 

,1 

conv ( 18, 7 

* * * * * * 

A * 

** 

* * 

conv ( 17 , ? 

* * * * * 

* 

** * 

* * 

conv( 16 „ 7 

* * % * * ********* 

* 

* *: * 

* 

conv ( 1 ■::*,, 7 

* ************ * 

* 


* 

conv ( 14 , 

* * * * * ^ * i; *: * ^ * 

* 


* 

conv ( 1.3 7 

4 , 'V jt 4 * 4 , 4 , 4 * 4 / 4 / 4 / 4 , 4 s A- * 

m /f <f. /jv /fk 4 \ m -in ff* flf' r 

* 


* 


END; 

PROCEDURE sub4; 
BEGIN 


r on ( 1 

? 

•*-- H 

& k i *. % $ A + ^ 

* 

* 

3 

conv <1 

1 , ’ 

**$**£******** 

* 

* 

a 

conv (1 

0 „ 7 

^ A i *: % t ^ t ^ M. ^ 

* 

* 

a 

con v ( 

9 , 7 

****** * * ****** 

* 

* 

,*i 

conv ( 

e, 7 

********* * * * * * * 

* 

* 


c 0 n v ( 

-7 

f f» 

•L àt 4 r à' À 1 4 / Àr à* '4* 4- ^ -4 

/f /y. /|' T T * T - T 4 ' T 

* 

* 

;« 

con v ( 

6 , 7 

* * * * ******** * 

* 

* 

,1 

con v ( 

ET .*• 

v-« ji 

*********** 

* 

* * * * 

,1 

conv i 

4, 7 

* * * * * * 

*** 

* * * 

n 

conv ( 

... r 

•••' *1 




a 

conv ( 

• ”\ .*« 
s.. n 




a 

conv ( 

1 , 7 




•** 


END ; 


BEG IN 
sub 1 ; sub 2 ; 

rewri te < f, 7 PICTUEES 7 ) ; 
put ( f ) r, 
sub3; sub4 ; 


) 


> 


» 


i 

) 


) 

> 

) 

) 

> 

) 

) 

) 
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) 

) 


) 

) 

) 
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) 

) 

) 

) 

) 

) 

) 

) 


it 

*4 

n 

H 


put<f); 

c . 1 . ose? ( f ij L. UL I ) 


< * $ C c o p y r i g h t C a r 1 o l i a g n a g h :l * ) 

(*ì5-+„G +„R—♦) 

( **L. CONSOLE: * > 

P R 0 G R A li f d u r i n a r o w ; 

USES TUR TEE" OR , APPLESTU ; 


CONST 

compudot=5; 
bumandot=--5; 
e m p t. y d o t ~ 0 ; 
out.dot=ma>{ i nt ; 
f our1ine=500 ; 
i 13. egal =— 10000 ; 


gametrac k=P ACKED ARRAY 1.1 ... 40 .1 OF 0 . . 7 ; 


: 
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Seguito <r.n y'er I i FH, i C ) ; 

figura 2. ma i • 1 —ARRA Y [ < >. . 7, 0 . . ■ ì J Of ì n t eger ; 

i i r.l ~ game; 
game~PACI<E : :.D RE CORD 

move : game I* r ac: F ; 

•« i rst ; ino -eri ; 
ne-1:13ni 
END; 

‘"Ah! 

aj >| 1 1 e : F’Ai ! i n rRR* i v M. .24, 1. . 48 1DE bool ean ; 
au>: : RAO E D ARRAY[ I . „ 24, 1 . . 48 30F bool ean ; 

bear d ; ma tri;; 
i , | : :i nteger ; 

I eyi ri : CHAR ; 

! ì me :: i nt eger ; 

«i,i11 < I boo l ean ; 

f ■ 1 , brt r à e, b a e e c: , i .• a. s e h ni mi; 
dii • - er-uiim i nt eger ; 
t • ac e: gametrac I ; 
si or ter ; mo'-er 1 ; 
mi r ror ; 3 nt eger ; 
n< • f set ? bool ean ; 
l 0 ^ c ned;boo1 ean; 

■st-■ t us: >ful l , 1 nai 111 ng, t( ac. i ng > ; 
numcol : ARRAY LO. .21 JUF ì nteger; 
qu ì t : bool ear. ; 
m a ri e p t h ; ini e q er ; 


PROCEDURE p! ay;FDRWARD; 


PROCEDURE home; 

VAR i:ìnieger; 

BEG1 N 

pene olor(none);char type(0); 
FOR is-0 TO 2 DO 
BEG I N 

ino veto ( 192,22+84 i ) ; 

westr.!. ng ( ■’ ) 

END 
END ; 


F ONC I ION gt » ~ i pha , beta ; gametracF: ) ; bool ean ; 
UAR 3 ;ìnteger; 

BEG IN 

FOR i : =1 TQ 40 DO 
IF alphaCi1>betatiJ THEN 
BEG IN gt : =t.rue ; E X IT ( qt > END ; 
g t:=fa1 se 
END ; 


PROCEDURE sou.ndO; 
BEG ] N 

IF sound THEN 
BEG IN 

note(7,20) ; 
note(22,20); 
note (31,20); 
note(36, 25); 
note (0 ,50); 
ri cd te? (31, 30) ; 
note(36,125) 
END 
END; 


A. & P. MICRO SOFTWARE 

Via I)agnini, 23 - 40137 BOLOOSA 
Tei. (051) 34 74 06 44 21 19 

COMPRA . VENDITA e SOLEOO/O 
COMPÌ TER SCOVI c USATI 


SCONTI 


Commodore 



LISTINO 

NS PREZZO 

VIC 20 

239.000 

179.000 

CBM 64 

625.000 

499.000 

REGISTRATORE C2N 

1 20.000 

99.000 

FLOPPY 1541 

585.000 

489.000 

STAMPANTE 1525 

450.000 

379.000 

STAMPANTE 1526 

595.000 

499.000 

PLOTTER 4 COLORI 

375.000 

299.000 

MONITOR COLORI 14 

430.000 

359.000 

MONITOR B/N 12 

285.000 

179.000 

CBM 8032SK 

1.675.000 

1.499.000 

CBM 8096SK 

2.150.000 

1.799.000 

CBM 610 

2.150.000 

1.799.000 

CBM 710 

2.850.000 

2.399.000 

CBM 715 

3.250.000 

2.759.000 

DOPPIO DRIVE 7050 

2.125.000 

1.789.000 

DOPPIO DRIVE2MB 

2.450.000 

1.999.000 

STAMPANTE 8433 

1.195.000 

999.000 

olivelli 

A120 S 7 



LISTINO 

NS.PREZZO 

M20 ST 128 KByte 

3.583.000 

2.399.000 

DOPPIO FLOPPY DISK 

2.232.000 

1.499.000 

MONITOR OLIVETTI 

587.000 

399.000 

PR GRAFICA 1450 

1.259.000 

799.000 


SOFTWARE x CBM APPLE 
OLIVETTI HP SIRIUS VIC 
SCONTO 50% SU LISTINO 


SIRIUS e ALTRI ARTICOLI 
SCONTO 25% 


VASTO ASSORTIMENTO 
DI MATERIALE USATO 
CON GARANZIA 3 MESI 
30% SCONTO SU NS. PREZZI 


IVA 18% ESCLUSA 


SOFTWARE OMAGGIO 
OGNI ORDINE 
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PROCEDURE sound 1 ? 

VAR i. „ j s i rrteger , 

BEGIN 

IF sound THEN 
BEGIN 

FOR i. ; ~ 1 TO 30 DO 
BEGIN 

FOR j: ; =l TO randorn MOD 
note(1,1) 


20 DO; 


POR is=l TO 20 DO 
BEGIN 

FOR j:=l TO 20*i DO; 
note (1,1) 

END 
N 

END; 


PROCEDURE sound2s 
BEO 1 N 

IF sound THEN 
BE GIN 


no t e 

• * •> / 

1 3ò , 

35 ) 

n 01 e 


35 > 

t ì 01 e 

i O Q 
\ .e~. O n 

35 > 

not. e 

.■ ••*!* 

v :>u. 

T cr 

not <■-> 

( 26, 

35 > 

not e 

< 30, 

35 ) 

not e 

( 28 , 

\ 

* ...1 J 

n 0 t e 

( 21 , 

._>5 > 

not e 

( ' *> L. 

\ S... C* H 

•2» ) 

not e 

i “ • 4 . 

35 ) 

not e 

( 28 , 

35 > 

r • 0 1. e 

(30, 

35) 

n 01 e 

»' ') 4 

. 1 « 

7 0 ) 

not e 

/ '*3 ir 
< X .. .» , 

35 ) 

n 0 t e 

•' 1 

l u... .1. ^ 

35 ) 

note 

V «... H 

35 ) 

not. e 

i t.. 

35 ) 

not e 

(28, 

"re; \ 

note 

( 30, 


note • 31, 

T« : - j 

not e ( 30 , 

OJ 1 

not e 

' *-••* li 

35) 

note 

(26, 

35 ) 

not e 

(25, 

35 ) 

n ri t e 

( 2 1 , 

35 1 

not e 

t !' 

v xf 

•• i«r \ 

. • * J 

note 

<25, 

t r tzr -, 
2* w« * 

note 

( 2 6 , 

70) 

1 -i < 1 1 0 

\ 2o, 

35 > 


) " 


EN 
! ND 5 


PROCEDURE stai FI; 

V A R r o w, c o 1 u. m n :: i. n t e g e r ; 

BEO IN 

vi euipor t < 3 5 182, 164, 189 ) f i 11 se r een ( b 1 ac k > ; 
v 1 ewpor t ( 0,279,, 0,, 191) 5 
P OF( r o w 5 •■••• O 111 5 DU 
P OR col umn : : -0 TO 6 DO 

dr awb I oc k ( au k , 6 , 24 , 0 , 2 4,24 „ 3+26 t co 1 umn, 9•+• 26 Irow, 10 ) 
END; 


PROCEDURE start. ; 
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UAR 

top : st i ng ; 
i : :i nteger ; 

p ; tur- ©s : FIL E: 11F l 'AC ! E: D ARR A V !.. I. , . 24,1.-48 II 0F b oole a n ; 


BEGIN 


r ©set ( p i c t. ur es, ' P T CTURES) ; 
a u x : p i c: t u. r © s ; 

get(pieturea) ; 
a p p 1 e : = p i c 1 1 « r e s ; 
c ! ose t pi ct '.ir ©s> - 
:i m. ttur ti © ; 

•f i 1 1 ser ©eri ( wh ite) ; 

V ; ewpor t ( 1 86, 276, 3, 1 89 ) ; 

•f :i 11 se re en <bl ac: k ) ; 


pencol or (rione) ; ino veto ( 189 
top:— FORZAQUA l’TRO’ ; (*1 op 
FGR i:=l TO 12 DO ( *FOR i: 


164 ) u chartype ( 10) ; 

FOURIN AROig - ; * ) ' 
1 TO 11 DO* > 


BEO ] N 


wchar (top L i II ) r, 
turnto(90);move(2); 
l'F ■ j. "4 ) OR ( i »9 ) I I-! E N 
BEO 1 N 

turnto < -90); move(8) 
END 
END : 


da ■ ) ; ( * wst r :i. ng ( '' wr i 11 en by ' ) ; *} 


1 * mov© 1 ) : 
wchar (c:hr ( 1 ) } ; * ) 
moveto <192, 150) : 
wstr i ng (scr i tto 
moveto < 193, 14.1 > ; 
wstr i ng < C. Magri aghi •’ ) ;• 
moveto(192,132); 

wstr i ng (20 MAO 198 3 ' ) : ( *wst r i ng 
POR i : s= 120 DONNEO 95 DO 
lF odd(i) THEN 

dr awb 1 oc k (ì , 15,0, 0, .1 00,1,186,1,15); 
drawb1 oc k(aux,6,0,0,24,24,186, 95, 4) ; 
drawb3ock(app1 e,6, « »,0,24,24,186,95,14) 
start 1 
END ; 




MAY 1903 ? )-*.> 


PROCE:DURE: ì- emember ; 
VAR 

•f st : bool ean ; 

aux, aux 1 ; .1 i n E ; 

ei !•- c o d e : i n t e g e r 

m e m o r y - p 11. .. E 0 F g a m e ; 


BEGIN 

baseh : =n i 1 ; basec : =n :i 1 : 

< * $ T ~ * > 

reset(memory, ? L0ST. GAMES "> ; 
er r c od e : = i. or e su 11 ; 

IF (errcode- 10 ) THE'N BE."01N c 1 ose ( memory ) : EX I T (r pinember ) 
IH err codette THEN E4:TG IN wn tei n ( ' 1/0 error :I , erre ode ) ; 
( * $ I + * > 

new (aux);fst;=true ; 


END; 

EXIT(PROGRAM) 


WH1 LE (N0T (eof (memory) ) AND (memory . f ì rst—FC) ) DO 
BEGIN 


1F f st. T HEN BEG I N f st. : =-f al se ; basec : =aux END ; 
aux-'"': -memory ; 

aux 1 : -aux ; new ( aux ) : aux 1 . nex t : =aux ; 

get: (memory) 

END ; 

11- NOI ( T st. ) THEIN BEG3. N f st : —t r ue ; aux 1 " „ nex t. : —ri i 3. 
WHILEI NOI (eof <memory ) ) DO 
BEGIN 


IF fst THEN BEGIN 
aux : =memory""' ; 
aux1 :=aux;new(aux) 


f st:=fal se ;baseh 
; aux 1 . nex t. : -aux 


=aux 


END; 


END; 



Seguito figura 2. 
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get(memory) 

END; 

IF NDT ( f st > TI^EN aux 1 nex t : =m I ; 
c1 ose(memqry) ' * ^ 

END ; 

H R Ci C E D U F< E m e m o r i z e ; 

VAR 

aux : 1 i nk : 

m e m o r y ; FI !... E 0 F r g a m e ; 

BEGIN 

IF learned THEN 
BEG 1 N 

rewrite (memor y, ' LOS r„ GAMI. S ' > 
a u ■/ ; - hi a s e C ; 

WHI LE: aux >n i J DO 
BEG IN 

memory :=au- • 

pu.t ( meni or ) ; 

aux s -aux = ne ■: b 
END ;; 

aux:“baseh; 

WHILE aux rii i DO 
BEG IN 

memory :=au ; 

pu.t: ( memor y > ; 
au>! ; =au"-' ■' . next 

END ; 

c 1 ose ( memor y, ] oc i > 

END; 

EX 11 (program> 

END ; 


F U N C T10 N b a d g a. m e : b o o 1 e a. n ; 

VAR con t ; bool ean ; aux : ]. i n k ; 

BEG IN 

aux : =basel : 
cont;=true; 

WH ILE: ( aux < >n ì 3. ) AND ( c on t ) DO 
IF gt (trace, aux . move) THEN aux ; = a.ux- s « next 
ELSE cont:al se; 

IF aux=nil THEN badgame:=-fal se 

ELSE IF T aux .move=trace THEN badgame: =t.rue 

ELSE badgame:=fal se 

end ; 


P R 0 C E D U Fi: E I e a. r n ; 

LABEL 10,20; 

VAR 

aux,aux1,aux2 ; 3 i n k; 

t r a c e 1 : g a m e t r a. c k 

ymax : ARRAY Co. . 7IIOF i. nteger ; 

c , ì , j, k : i n t eg er; 

c o n t., r e d u c: e d : b o o I e a n ; 

BEG IN 

i : = 40 ; ]. Par ned : ~t r uè ; 

W F I IL E; t r a c e [. i II = 0 D 0 r ; j. \ . 

traceti 13 : = 0 ; t race C i - 3. Il •= 0 ; 
aux:“base; 

IF a u x —ni .1 T H E N G 0 T 0 j. Q « 

IF gt (au.x. mo v e,, trace) THEN G0T0 \ 0 ; 
cont : =t.rue; 

WHILE (cont. AND (a.ux< >ni 1. ) ) do 
I E : g t (trace, a u x . m o v e ) "F H E N 
BEG IN 
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aux 1 « -aux ; 

‘-y I I a'*" I- 1 1 n '■ ir 

END 

i; ! ’ - .l .. m i I ;; ss : . i I . ... .. " 

new<aux 2 >^ 
ui i i h • •< i_ i , ■ r 11 
BE'G ]’ N 
n e !» “ »•* u. ; 
move r ■ i. r de e - 

I I I ! - ■ • ! . I| t ► V: 1 

END; 

a«. • 1 « nex't s -aux2; 
GOT O 20 5 
10 ; n e w ( b a s 0 > ? 

WITH base DO 
SEBI 11 
neve t ; =au.” ; 

iTn 1 y 0 ; : I (•’ dC 0 ; 

f ] r st. s =st ar t er 


20 s FON j s "=■ .1. i n 40 DO 
1 * r trac et i 3=0 THEN t. racei [ -j .3 s — 7 
ELSE t ratei 1. j 3 : «tracet j 3 ;; 
r ed u.c:ed s = f a ]. se ;; 

PEPEAT 
i : = i - 2 ; 

t.race[:i 3 : =0; tr ac:e C i -1. J : ~0 : 
tr ac:e 1 C i 3 : =7; trace 1 i 1 1 3 : ~7; 

aux;-base;j:=0;k:=0; 

WH tLE gt (trace, aux . move > DO au ■ s -ai i « ne ' t ; aie 
WHI LE ( aux < >n i I ) AND < I 8 > DO 
BEO 1 N 
k:=k+l; 

IF no t i gt > aux «move, t:r ace 1 * > 11 lEN 

BEO I N 

j ; = 1 + J ; 

aux : ~au>r . next 

END % 


. i I I 


ii 

'I 


I OR E ; ss;0 I O DO /max C F 3 : «0 ; 

F 0 R k : — 1 T 0 40 D 0 y m a x C t r a c e C k 3 3 : = v in a C t r a c. e C k 3 3 +1 ; 
c.;~0;F0R k:=»l TO ? DO IF ymaxU 3= 6 THEN c:=c + l; 

IF j >~c-numero 1 E i DIO 2 3 THEN WITH aux 1 DO 
BEO IN 
next; ~ aux; 
m o v e ; ~ t r a c e ; 
f i r st ; -st. arter 


E!!...SE: reduceds -1ruè; 
UNT I!, redu.ced OR < j 
END ; 


PROCEDURE gnnove ( who, col umn ; :i nt eger > ; 
VAR i , c: ; :i. ntegér ; 

BEO IN 

i ; ~0; c : -3 + 26* (col umn.J > ;; 

IF who 0 THEN who: = O F!...SE who: = 24: 


dr awb I. oc k < aux , 6 , 24,0,24, 
dr awb I. oc V ( app I. e , ò , who , O , 
:i ; « 1 i 1 

UNTI!.... boardCi,column3 : 0 

END ; 


24,c,9+26* 
24,24, c,, 9+ 


(6- i. > , 8) 

O i.. * ( «r..... , S 
.i:.. O '>■ v •...* 1 ' 


14 > 


P R 0 C E. D U F? E d o m o v e ( w h o , c o J u m n ; :i n t. e q e r ; V A R b o a r d : m a t r :i a > ; 


i i /\ ( “i 

V Hn. 

row: :i. nteger ; 


Seguito figura 2. 
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BEGIN 
row; -0; 

w HILF b o a r d C r o w +■ t, <: o 1 li ito ri I = emp t y dot DO row!=rcw •» 1 : 
board L row, column 1 : =who 
END; 


FUNGIJON vaine < col umn ,whose:ìnteqer; board:matrix» :inteqer;EXTEENAL : 


funi: I f GN I vai ue (col umn , depth , whose, dummy : i nt eqer ; board : matr i x ) : i nteger ; 


7 AR 


ì,k,testvaiue:ìnteqer; 


BEG IN 

I-:-vaiue(column,whose,board); 
bestvalue:=abs(k); 

IF <bestvalue=f ourl .ine) GÈ (bestval ue=-i 1 legai ) OR <depth=maxdepth ) THEN 
r vai u.e : =k-depth*whose 
ELSE 
BEG IN 

domove(compudot*whose,co]umn,bear d >; 

IF whoee=l THEN , 

BEG IN 

b e s t. v a l u e* : - m a x i n t ; 

POR 1 :=1 IO 7 DO 
BEG IN 

k : =rvalue ( ì , dept.h+1, - whose, b^st va] ue, board ) ; 

IF k<bestvalue THE!N 
BEG IN 

bestvalue:~k; 

IF b est va 1 u.e< = d ummy THEN 
BEG IN 

r va 1 ue : =best. vaI ue ; 

EXIT(rvaine) 

END 

END 

END; 

rvalue:=bestvalue 
END 
ELSE 
BEG1N 

best va1ue:=—maxint; 

FOE ì:=1 T0 7 DO 
BEG IN 

k : ~ t ' vai ue ( i , dept.h +1 , —whose, bestval ue, board ) ; 

IF k : bestvalue THEN 
BEG IN 

best value:—k ; 

IF bestvalue>=dummy THEN 
BEG IN 

rva 1 ue:=bestva1ue: 

EXIT(rvalue) 

END 

END 

END; 

rvalue:=bestval ue 
END 
END 
END; 


FUNCTION choice : inteqer; 

VAE 

i,k,bestval,bestmove:ìnteger; 
chance:boo1ean;j: 0..7 ; 


t 
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BEGIN 


chance z-fai se; 


nu.mco 1 L movenum DIV 2 3 : =0 ; 
bestvai :=-max 1 nt; j:-0; 

POR i;=1 TO 7 DO IF boardC1,i3=0 THEN js=j+l; 
CASE j OF 
1 : max depth:=1 ; 

2: max depth:=9; 


7 : m a x d e p t h ; " 7 ” 

4 : max dept fi : =5 ; 

5,6,7;max depth;=4 
END; 

IF" m a x d e p t. h > ( 4 3 - m o v e n u m ) 
FOR i:=1 TO 7 DO 


m a x d e p t h s = 4 3.m c :* • - e r, u. m ; 


BEG IN 


time:=24-1ìme; 


dr awbl oc k < app 1 e „ 6, 0,0, 24 , 24 , :l. 86,95, 4 ) ; 
drawb 1 ock <app 1 e, 6, t.i me, 0,24,24, 186,95 

k:=rvaiue< 1 , 1 , 1 ,.maxint- board); 

traceCmovenuml ; =abs (mi rror-i ) ; 

IF k>-490 THEN IF badgame THEN ks=~49u 
IF k >—490 1HEN c h a n c e :=true; 

I F k < -- 4 90 T H E N n u m c o I L m o v e n u m DIV 2 3 :: = 
I F r k >bestva 1 THE.N 


1 4 ) 


nume 


BEG IN 


movenum DIV 23•3 .5 


best vai ;=k ; 
bestmove :=i 
END 


END ; 

choice:=bestmove; 

IF NOT < c h an c e ) AND < s t a t u.s=t r a c i. n g ) TH E N 

BEG IN 

s t a t u ss = I e a r n 1 n g ; 

IF memavai ] > 1024 THEiN learn 
END 
END; 


FUNCTION 1 nput (cl : i nt.eger ) s i nteqer ; 


VAR eh :char;n: 1 nteqer; 


BEG IN 

IF keypress THEN read(keyin); 
n:=c1-1 ; 

REPEAT 


read(eh); 


drawb1 oc k(app1 e 


6 , 


O 


li JL. 


4,24,3+26*n,165,0) 


CASE eh OF 

',':BEGIN n:=(n~l);IF n<0 THEN n;=6 END; 
•’ . 7 : n: = (n + 1 ) MOD 7; 

■’ : IF boardC 1 ,n+l 3=0 THEN 

BEG IN 


5 


' A 9 


•’ I ? 


1 nputs =n +1 ; 
EX IT(input> 
END; 


a 


: BEG IN < % ' Q ’ q s BEG IN % ) 
quit:=true; 

EXIT(play) 

END; 


;BEGIN < *"T 7 , ’t 


BEOIN*) 


c h ar t yp e <10);penc o1 or (non e) ; 

moveto ( 192,38) ;wst r 3 . ng < ’ Er a davver o ) 

m oveto ( 192,30 ) ; w s t r 1 n g < ’ u. n a c a 11 1 v a) 


( *wst.r i ng ( " Was my move? " ) ; * ) 
( * ws t r i ng ( " r e a 11 y b ari ? " ) ; * ) 


moveto <192 


wstring <"mossa ? S/N ’)5 (* wstring<" ( Yes/No 


) ’ ) ; * ) 


read(keyin); 


IF < <k ey 1 n= ? S ? )OR(keyin = ? s"))AND 
< * IF < < key i n = •" Y ? ) OR ( k ey i n = •" y •" ) ) AND * ) 


Seguito figura 2. 
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< si a t i.is-1 •' ac « ng * AND < movenuin T -9 ) T i II N 
BEGIN 

status: ~1 pai n i ng; 

t.r ac et moveni un • 1 II : =4 ; t r ace L mov enum + 2 J * - 4 ; 
IF me ni a v ail 10 2 ‘ 4 THE N 1 earn 
END; 

Dome 

END; 

’ R • , i ’ : E X IT ( p 1 a y ) ; 

" S y , ’ s ’ : sound : =N0 I -.qi md 
END; 

drawb I ocI (app 2 4,0,24, ?4, ’• i 26 #n, 165, 10) 

UNTIL * al se 
E NI); 


pRt. ir EH uro dr aw; 

VAR i : ? ntener ; 

Di 0IN 

FOR ìi 1 IO 7 00 
I f ri r i , j i*=0 11lEli i X f 1 1 dr sw ) 4 

per, COI or - none» ; moveto < 192, ’-O> ; chartvpe ( 10» ; 

1 1 ng ( . . . PATTA. . . ’ > ; < *wstr3 ng < ' It ‘ ? s a draw ■’);*> 
r pad 1 l e / 1 n >; homo 5 EX 11 (play* 

END; « 


PROCEDI (RE f our (col umn : 1 nt e q<- 1 1 ; 

VAR 

row, who, d> , dy,.x, - , num: 1 nteger ; 

BEG 1N 
r ow: -1 ; 

NI IJI. E boar d I row, co 1 umn 1 • * > DO r ow : =r ow+ 3 ; 
who: =boardCrow, ccd umn I ; 

FOR dv:»0 fO 3 . DO 
FOR d y : =-• 1 TO \ DO 
TF (d n> OR <dy 0) THEN 

BE G1 N 

• : - col « uf.n ; - : ~r> -w; num: =-~ 1 ; 

REREAT 

>■ : ~ rd ; y s =*y+dv ; 

num;~num +1 

UNTIL boardIy, ; I who; 

>i : "col umn; y: =row; 

REPEAT 

y- : =>? - d> ; y ; -y-rj v ; 
num:=numr ] 

UN T 1L board I y, a J who; 

TF num>3 THEN 
BEG IN 

JF who>0 THEN 
BEG.IN 

pencolor(none);moveto(192,30); 

chartype < 10) ; wstr i ng ( 11 HO VINTO ! 1 ) ; ( *wstr 1 ng ( ’ wow I wiri ! ' ) ; * ) 

sound2; reati(keyin);home; EX IT(piay) 

END 


ELSE 
BEG IN 

pencolor(none);moveto (192,30); 

chartype ( 10) ; wstr i ng ( ” HO PERSO ! S)* 9 ) ; ( *wstr i ng <ops, I lose’ ) ;*) 
sound 1 ; reati(keyin);home;EXIT (pi ay> 

END 

END 

END 

END; 

___ 
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PROCEDURE play ; 


VAR 

num,cl : integer; 
c o n t. : b o o 1 e a n ; 


BEO IN 

c1 :=i;ba se1 :=base; 

REPEAT 

n um:=inp u t (c1) ; 

IF (notset AND <num<>4)> THEN 
BEO IN 

4 

n ot. set : =t a 1 se ; 

IF num>4 T HEN mirror:=8 
END; 

IF s t. a t u s=t r a c i n g T H t" N 
BEO IN 

move trami : =movenum+l ; 

t r a e C m v e n u. m 3 :: - a b s < m i r r o r. n u. m ) ; 

IF m o v e n u iti ~ 4 0 T H E N s t. a t. u s : = 1 e a r n :i n g 
END; 

domove(humandot,num,board); 
g r m o v e ( -1 , n u. m ) ; 
tour(num);tiraw; 
movenum:=movenum+1 ; 
c1 ;=choice; 

IF < notset AND (c1<>4)) THEN 
BEO IN 


notset : ~i a1 se ; 

IF cl>4 THEN mirror:=8 
END; 

IF s t. a t. u s=t r a c: i n g T H E" N 
BEO IN 

trace Cmovenum! :=abs(mirror—c1) ; 

IF movenum=40 THEN st atus:=1earning 
END; 


d o m o v e(co ai p u d o t, c 1, b o a r d ) ; * 

grmove(1,c1> ; 

drawb1 oc k <apple,6,24,0,24,24,3+26#<c1 — 1>,165 
tour(c1); 
cont;-true; 

WHILE (base 1 < >ni 1 ) AND c:ont D0 
IF gt (trace, base 1 "". move) THEN base 1 s -base 1 
ELSE cont:=fa1 se; 
draw;sound0 
UNTIL FALSE 


« 


c 


END 


10) 


nex t 


BEO IN 

ti me:=0;sound:=true;quit:=fal se; 
remember;start; 

status: =1 ear n i ng ; 1 ear ned : - tal s>e; 

REPEAT 

FOR i:=1 to 7 DO 
FOR j:=1 to 6 DO 
board C j,iU:=emptydot ; 

FOR i:=0 to 7 DO 
BEO IN 

board E i , OD : =outdot. ; 
boar d [ i , 8D : =out.dot 
END; 

FOR i:=0 TO 8 DO 
BEGIN 

board C0,i3 :=outdot ; 
board C7, i 3 : =ou.tdot 
END; 

chartype <10);pencolor(none); 

moveto <192, 38) ; wstring ( ? Chi muove ? );( #wstring< ? Who ot us');#) 
moveto(192,30);wstring("per primo ? ? ); < *wstring <' goes first? 7 );#) 
moveto(192,22);wstring(’(Conip/Util)’);(#wstring( 7 (Comp/User) 7 );#) 
notset:=true;mirror : =0; 

IF status=1earning THEN st at us:=tracìn g; 

FOR i:=1 T0 40 DO trace!i3 :=0; 

READ (keyin);home;randomize; 


Seguito figura 2. 
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Seguilo figura 2. 



IF <kéyin= 7 A 7 ) OR (keyin =!, a') THEN memori ze; 

< * IF ( k ey i n = 7 Q 7 ) OR ( k ey in-- 7 q ' ) fHEN roemor i z e •; ♦ ) 

IF (keyin= 7 C 7 > OR (keyin= 7 c 7 > THEN 
BEO IN 

base: =basec: ; st arter : =FC ; movenum: ; 

i:=random MQD 3 +• 3; 

IF i<>4 T HEN BEGIN notset : =f al se; IF i. 4 THEN mirror :=8 

tracet 1 'I : =abs (mi rror-i > ; 

domove(compudot«i,board); 

qrmove( 1 , i ) ; 

sound0; 

dr awb 1 ock (appi e, 6, 24,0« 24,24, 3* 26* ( ì .1 > , 1 òS, I 0 » ; 

pi ay ; 

basec:=base 

END 

ELSE 

BEGIN 

base:=baseh:st ar t er:~FH; 
movenum:=0; 

drawb1 ockiapple,6,24,0,24,24,81,165,10): 
i:=4;piay; 
baseh:=base 

END ; 

IF quit THEN memorize; 
star t; .1 
UNI IL. false 
END. 

. FUNE VALUE, 3 , 

: FUNCTION vai uè (col umn , whose: i nteger ; board : matr ì >; ) : ì nteger ; 


RETURN 

. EQLJ 

00 

BOARD 

. EQU 

02 

BASE 

. EQU 

04 

FRIEND 

. EQU 

05 

DIR 

.EQU 

06 

DI ST 

. EQU 

07 

MYDOTS 

.EQU 

08 

FREE 

. EQU 

09 

STEP 

. EQU 

OA 

VAL 

. EQU 

OB 

SCORE 

. EQU 

OD 

INLI NE 

. EQU 

OE 


; p r ondi i d a t i d a 11 o s t a c: k 

; sa 1 va 1 7 ì ndinzzo di r 11 orno 


STA RETURN 
PLA 

STA RETURN+1 
PLA 
PLA 
PLA 
PLA 
PLA 

STA BOARD 
PLA 

STA BOARD+1 
PLA 
PLA 
BMI $1 
LDA #5 
BPL $2 
*1 LDA #0FB 
*2 STA FRIEND 
PLA 
ASL A 
TAY 

$3 STY BASE 
TYA 
ADC #18. 

TAY 

LDA o>B0ARD, Y 

BEO $3 

PLA 

; calcola il valore della colonna 


; scarta i soliti 4 byte inutili 


sai va 1 7 i ridi ri zzo del Label I one di qi oco 


; c a 1 c o 1 a i 1 j a 1 a r e a s s e g n a t. o a 1 1 a p e d i n a 
; del qi ocatore per c:u.i ca 1 co 1 i 1 a 
: fu n z i o n e? v a 1 u e 


;c a1co1 a 1 7 indi rizzo r e1 a tivo d i 
; boardCO,column3 ; il carry resta resettato 
;calcol a 1 7 indirizzo reiativo del 1 7 ul1 1 ma 
; c a se 11 a 1 i b er a d e 11 a c o 1 on n a p ar t en d o 
; dal 1 7 alto e metti lo in BASE 
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Seguito figura 2. 



bit computers 

par acquistare a rama 


[cippkzcomputer 


t a 


PERSONAL 

COMPUTERS 


TVI 


stnus 

COMPUTER 


SBORNE1 


e tra gli altri: 

SINCLAIR ZX 81, SINCLAIR SPECTRUM, VIC-20, TEXAS TI 99/4A, TEXAS CC 40, ATOM, 
BBC, EPSON HX 20, COMMODORE 64, NEW BRAIN. 

Sede centrale: Roma - Via Flavio Domiziano, 10 (Eur) - tei. 06/5126700-5438023-5127381 
Computer shop: Roma - Via F. Satolli, 55/57/59 (p.zza pio XI) - tei. 06/6386096-6386146 

Disponibile anohe a: 

Viterbo - Via Giacomo Matteotti, 73 - tei. 0761/38669 
Latina - C.so della Repubblica, 200 - tei. 0773/495998 
Frosinone - V.le America Latina, 14 - tei. 0775/855263 

ASSISTENZA HARDWARE SOFTWARE E CORSI 
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Seguilo figura 2. 




SIA VAL 

LDA #0 

ADO VAL + 1 

STA VAL+1 



LDA MYDOTS 

; control la se ci sono almeno 


CMP #3 

BCC £1 

; quattro pedine in fila 


LDA #244. 

SIA VAL 

LDA #1 . 

STA VAL+1 

JMP END 

; nel caso esci dalla subroutine 

£ I 

DEC DIR 

DLL SCANNER 


E NO 

LDA FRIEND 

BPi END .1. 

SEC 

LDA #0 

SBC VAL 

STA VAL 

LDA #0 

SBC VAL+1 

STA VAL+1 

;poni il segno opportuno a VAL 

END! 

LDA VAL+1 

PHA 

LDA VAL 

PHA 

LDA RETURN+ 1 
PHA 



LDA RETURN 

PHA 

RTS 

* 

;subrontine per l’analisi delle singole direzioni 

SCAN 

LDA FRIEND 

STA INLINE 

LDA #10. 

;pc«ni le condizioni iniziali 


LDY BASE 

;iI registro Y contiene l'indirizzo 

scloop 

TYA 

CLC 

; relativo per l'elemento da esaminare 


ADC STEP 

TAY 

• 


LDA .DBOAR v D,Y 

; esamina il singolo elemento; se 


TAX 

; dal 1'elememto iniziale a questo incluso 


EOR INLINE 

; tutte le caselle contengono pedine del 


BED £1 

; giocatore per cui calcol i VALLE incrementa MYDOTS 


LDA #0F 

STA INLINE 

BNE £2 

; un valore qualunque non usato nel tabellone 

$1 

INC MYDOTS 


£2 

LDA SCORE 

CPX #00 



BF.Q £4 

CPX FRIEND 

BEO £3 

# 


RTS 

; se hai incontrato il bordo del tabellone 

£3 

CLC 

ADC #5 

;o una pedina avversaria esci dalla subroutine 

£4 

CLC 

ADC D1ST 

STA SCORE 

DEC DIST 

INC FREE 

LDA DIST 

* 


CMP #7. 

BNE SCLOOP 

RTS 


POSINO 

.BYTE 13.+2.,2. 

,2.-38.,-18. 

NEGINC 

.BYTE -18.-2., - 

. END 

2.,18.-2.,18. 


t 
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Lire?? 
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CompUITiail: un’organizzazione ad esclusivo servizio dell’utente finale 

per corrispondenza, naturalmente 































































Desidero ricevere il materiale sotto indicato: 



QUANTITÀ’ 

DESCRIZIONE 

PREZZO UNITARIO 

QUANTITÀ' 

DESCRIZIONE 

PREZZO UNITARIO 

* n. ... 

BEAP computer, scatolato come da foto. 48 K/CPU 


n. 

.Interfaccia parallela per stampante . 

. 70.000 


6502, tastiera M/m con tasti funzione, firmware 


n. 

Interfaccia seriale RS 232 . 

. 95.000 


su EPROM 2732, interamente zoccolato - alimentatore 


n. 

.Scheda Disk Controller. 

. 85.000 


switching . 

.... 750.000 

n. 

Scheda espansione 16 K . 

. 95.000 

n. 

Disk Driver 51/4” . 

.... 470.000 

n. 

Scheda CPU Z80 . 

. 130.000 

n. 

Monitor PHILIPS PCT 1202 antirif. fosfori verdi. 

.... 250.000 

n. 

Joystick . 

. 35.000 

n. 

Monitor PHILIPS PCT 1202 antirif. fosfori arancio .... 

.... 265.000 

n. 

Paddles. 

. 30.000 

n. 

Stampante STAR DP 510 80 col/100 cps F/T . 

.... 750.000 

n. 

Scheda 80 colonne con soft/switch . 

. 180.000 

n. 

Stampante STAR GEMINI-10X 80 col/120 cps F/T .... 

.... 900.000 

n. 

Modulatore VHF con switch antenna/computer ... 

. 35.000 

n. 

Stampante STAR GEMINI-15X 132 col/120 cps F/T ... 

... 1.270.000 





n.Alim. switching: 5V 5A/12V 2.5A/-12V 0.5A/-5V 0,5A; scatolato con filtro rete, presa e interr. + cordone 220V . 140.000 

-BEAP MONITORS E STAMPANTI SONO COMPLETI DI MANUALE D'USO E CORDONE 01 AUMENTAZIONE A NORME - 



SISTEMA "BEAP BASE Composto da: 1 BEAP Computer. 1 Monitor Philips f verdi. 1 Disk driver r controller . 1.500.000 

SISTEMA "BEAP SUPER' Composto da: 1 sist. "BEAP BASE 1 Disk driver 1 Stampante STAR DP 510 + Interfaccia .. 2.750 000 


■V 




CONTRIBUTO SPESE IMBALLO E SPEDIZIONE 

consegna a mezzo pacco postale raccomandato c/assegno . Lit. 15.000 

consegna rapida a domicilio a mezzo corriere giornaliero (TRACO, etc.) . Lit. 25.000 


Totale imponibile Lit. 

Più IVA 18% Lit 

IMPORTO TOTALE Lit 


che vorrete inviarmi, assieme alla fattura, al seguente indirizzo: 


Cognome 


Prov. 


Nome... 

Ragione Sociale (se Ditta) . 

Via .CAP.Città 

Codice Fiscale .P. IVA (se Ditta). 

Numero telefonico. 

MODALITÀ’: 

(*) Allego anticipatamente assegno di Lit.(come da riquadro) quale contributo alle spese di spedizione, impegnandomi a saldare contrassegno 

l'importo totale di Lit.come da calcolo sopra effettuato. 

(*) Allego anticipatamente assegno per l’importo totale di Lit.come da calcolo sopra effettuato: restano a vostro carico le spese di 

spedizione. Qualora il conteggio da me effettuato dovesse risultare errato mi rimborserete a stretto giro di posta l'eventuale differenza pagatavi in più o mi addebiterete in contrassegno 
l’importo mancante. 


DATA . 


/ 


/ 


FIRMA 



(*) Desidero ricevere dettagliate informazioni sui seguenti prodotti: 

( )Computers ( ) Stampanti ( ) Disk drivers ( ) Monitors ( ) Espansioni ( ) Interfacce 

Ritagliare e spedire a: 

COMPUMAIL - Casella Postale 404 - 13051 Biella (VC) 


( ) Software 

















































































Disegno assistito 
dal computer 


Questo programma è stato realizzato dopo aver osservato , nel corso di varie mostre 
ed esposizioni , quello che possono fare i computer quando vengono usati nella 
cosiddetta “computer assist ed design ” cioè nella progettazione assistita dal computer 
o nella “computer assist ed drawing" cioè nel disegno assistito dal computer. 


di M. Cerofolini 


Figura 1 - Shape studia¬ 
te per il disegno di cir¬ 
cuiti elettrici. 


Figura 2 - Disegno otte¬ 
nuto con rinsieme di più 
shape. 


Figura 3 - Stesso disegno 
di figura 2 completato 
dalle scritte ottenute dal 
programma presentato. 





G uidati da opportuni programmi e corredati 
da accessori quali plotter e tavolette grafi¬ 
che, i computer sono in grado di realizzare pro¬ 
getti di straordinaria complessità come ad esem¬ 
pio circuiti stampati, mappe e carte geografiche, 
schemi elettrici, schemi di montaggio per wire- 
wrap ecc. ecc. 

Ma cosa può fare l'utente di un personal com¬ 
puter dotato di capacità grafiche limitate e che 
non dispone di tavolette grafiche e/o plotter? 
Con l'ausilio dei programmi che seguono e con 
l'ormai diffusissimo Apple II (che dispone di una 
grafica di buona risoluzione) e di una stampante 
grafica, si possono ottenere dei risultati che fino a 
pochi anni fa sembravano alla portata solo di 
computer del costo di centinaia di milioni. 

La procedura di "disegno assistito dal computer" 
(o computer aided design CAD) che verrà di 
seguito descritta è costituita da un programma 
per disegnare, da un programma per aggiunge¬ 
re un testo alfanumerico al disegno preparato in 
precedenza e da una serie di disegni elementari 
(shape table) che costituiscono i mattoni con i 
quali poi verrà realizzato un disegno più comples¬ 
so. 


Il programma per disegnare 

Il programma per disegnare si basa sulla possi¬ 
bilità dell'Apple II di utilizzare la "shape table". 
Questa non è altro che una tabella di disegni già 
predisposti che possono essere preparati in 
precedenza e memorizzati su disco. Dopo aver 
richiamato dalla "mass Storage" (cioè dall'unità 
a disco) la "shape table", i disegni che la costitui¬ 
scono possono essere spostati in un punto qual¬ 
siasi della pagina grafica, possono venire ruotati, 
ingranditi e presentati in vari colori. Se opportuna¬ 
mente studiate nella loro forma, le shape posso¬ 
no essere combinate insieme per formare disegni 
anche molto complessi. La figura 1 presenta le 
shape che sono state studiate per il disegno di 
circuiti elettrici. Sono presenti i simboli più comuni 
usati negli schemi elettrici e le linee, le intersezioni 
e gli angoli. 

Il programma presentato nel listing 1 divide la 
pagina grafica in una griglia di 18 quadrati per 
10 . 

Ciascuno di questi quadrati costituisce la sede di 
una delle shape di 15 x 15 punti descritte in pre- 


r 
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cedenza. Il programma permette poi, attraverso 
opportuni comandi, di selezionare la shape op¬ 
portuna, di spostarla in un qualsiasi punto dello 
schermo, di ruotarla (con incrementi di 90 gradi) 
e di cancellarla dallo schermo. 

Tutte le operazioni descritte vengono visualizzate 
sulla pagina grafica e contemporaneamente 
memorizzate in due opportune matrici (D% e 
R%). 

I comandi che permettono di manipolare le 
shape vengono dati con la pressione di un singo¬ 
lo tasto e sono visibili in figura 4. 

Il cursore è costituito dalla shape- numero 11 (figu¬ 
ra 1 ) e si presenta sotto forma di quattro angoli 
lampeggianti. Essi delimitano la shape e servono 
ad indicare in quale punto dello schermo grafico 
verranno effettuate le operazioni descritte in pre¬ 
cedenza. 

È interessante soffermarci un attimo sulla routi¬ 
ne che inizia alla linea 4410. Questa permette di 
accettare un carattere da tastiera mentre il pro¬ 
gramma BASIC deve effettuare un'altra operazio¬ 
ne. In questo programma era necessario fare 
lampeggiare in continuazione il cursore e nello 
stesso tempo accettare un comando da tastiera. 
Usando un normale statement GET ciò non sareb¬ 
be stato possibile perchè, nel momento in cui 
questo statement viene eseguito, non cede il 
controllo fino a che un carattere non viene battu¬ 
to sulla tastiera. 

Come già accennato precedentemente la fi¬ 
gura 1 riporta le shape corrispondenti ai numeri 
da 1 a 9. Digitando uno di questi numeri mentre il 
cursore lampeggia la corrispondente shape ap¬ 
pare sotto il cursore cancellando l'eventuale di¬ 
segno che vi era in precedenza. I comandi di 
rotazione e cancellazione visti in precedenza 
agiscono sulla shape che è posta sotto il cursore. 
Mettendo insieme varie shape si può costruire un 
disegno come quello indicato in figura 2. Occorre 
inoltre notare che le shape di figura 1 sono pre¬ 
sentate nelle loro orientazioni di base ma nel 
disegno esse possono essere ruotate a piacimento. 

Quando il disegno è completo si preme il tasto 
CTRL-F che esce dal loop di accettazione co¬ 
mandi e chiede sotto quale nome vada salvato il 
disegno . Il programma salva su disco l'area di 
memoria corrispondente alla pagina grafica che 
contiene il disegno ($8000 per lunghezza $8000). 


Programma di scrittura 

Il programma di scrittura (listato 2) permette 
l'inserimento di tutti i caratteri del set ASCII orien¬ 
tati in qualsiasi modo nel disegno preparato e 
salvato in precedenza. Il principio di funziona¬ 
mento è molto simile a quello precedentemente 
descritto per il programma di disegno. Quello che 
cambia sono le shape che questa volta sono le 
lettere del set ASCII. Per spostare il cursore senza 
scrivere niente ci si comporta come quando si 
usa lo screen editor della normale tastiera cioè 
facendo precedere i soli movimenti dal tasto 
escape. Il movimento corrisponde ad uno solo 
dei punti dello schermo ad alta risoluzione. Se si 
devono effettuare degli spostamenti più ampi si 
può aumentare il passo premendo uno qualsiasi 
dei numeri mentre si è nella funzione di movimen¬ 


1-9 

Scelgono una delle shape a disposizione 


(massimo 9). 

I,J,K,M 

Muovono il cursore nelle 4 direzioni. 

C 

Cancella la shape nella posizione del 


cursore. 

< 

Ruota la shape in senso antiorario. 

> 

Ruota la shape in senso orario. 

CTRL F 

Esce dal programma di disegno. 


7530 - 

3D 

0 0 

02 

01 

08 

01 

13 

01 

7538- 

19 

01 

1E 

01 

27 

01 

38 

01 

754 0- 

46 

01 

4E 

01 

5C 

01 

63 

01 

7548- 

68 

0 1 

72 

01 

7 C 

01 

35 

01 

755 0- 

83 

01 

8 E 

01 

90 

01 

96 

01 

7558- 

Al 

01 

A 8 

01 

B 2 

01 

EIE:! 

01 

756 0- 

P ET 

L j 

01 

CE 

01 

D9 

01 

E0 

01 

7568- 

EC 

01 

E 5 

01 

FA 

01 

FE 

01 

757 0- 

06 

0 2 

0E 

0 2 

14 

02 

1B 

02 

7578- 

28 

0 2 

33 

02. 

3 E 

02 

48 

02 

758 0- 

rr'7 

sJ 

0 2 

5 C 

02 

64 

0 2 

70 

0 2 

7588- 

78 

0 2 

83 

02 

8C 

0 2 

9 A 

02 

759 0- 

A 2 

02 

AE 

02 

E: A 

0 2 

C3 

0 2 

7598- 

CB 

02 

D5 

0 2 

E0 

0 2 

EA 

0 2 

75 A 0 - 

F2 

02 

FB 

02 

07 

03 

14 

03 

7 5 A3- 

1F 

03 

2.8 

0 3 

34 

0 3 

00 

0 0 


* 

753 0- 

0 B 

0 0 

1A 

0 0 

20 

0 0 

2 E: 

0 0 

7538- 

36 

00 

4C 

0 0 

69 

00 

77 

00 

7540- 

88 

00 

9 E 

00 

B A 

0 0 

DE 

0 0 

7548- 

F8 

0 0 

3 E 

24 

2D 

36 

0 4 

00 

755 0- 

92 

92 

2 A 

2D 

2D 

2D 

2D 

2D 

7558- 

?.. D 

25 

00 

92 

92 

2 A 

2 D 

2 E) 

7 5 6*0 - 

2D 

24 

24 

24 

24 

0 0 

92 

92 

7563- 

2 A 

2D 

2D 

2D 

2D 

2.D 

2D 

E 5 

757 0- 

de:: 

1 E: 

3F 

16 

2 D 

OC 

18 

18 

7578- 

24 

24 

24 

0 0 

92 

92 

2 A 

2D 

758 0- 

2D 

2 D 

2D 

2D 

2D 

25 

0 8 

18 

7588- 

0 8 

18 

C3 

CO 

D8 

DE: 

DB 

36 

36 

7590- 

36 

6F 

16 

3 F 

OE 

36 

36 

26 

7598- 

0 0 

92 

92 

22 

35 

3 E 

4C 

2D 

7 5 A 0 - 

2D 

2D 

2D 

2D 

2D 

04 

00 

92 

7 5 A 8 - 

92 

2 A 

OC 

0E 

0E 

OC 

OC 

0E 

75B0- 

0E 

OC 

OC 

0E 

0E 

OC 

25 

00 

75B8- 

92 

92 

2 A 

2D 

2D 

24 

24 

96 

75C0- 

12 

36 

6 E 

09 

24 

24 

24 

24 

75C8- 

95 

12 

2 D 

20 

04 

00 

92 

92 

7 5 DO- 

2 A 

2D 

2D 

24 

E: 4 

12 

36 

OD 

75D8- 

18 

24 

24 

15 

36 

OD 

18 

2D 

7 5 e: 0 - 

FD 

0 B 

24 

96 

2 e: 

08 

53 

29 

75E8- 

25 

OC 

92 

92 

2A 

25 

24 

B 4 

75F0- 

Q'? 

7 l- 

36 

26 

08 

18 

03 

6 0 

OD 

75F8- 

18 

OD 

18 

OD 

18 

24 

96 

92 

76 0 0- 

DA 

9 E: 

15 

15 

15 

15 

0E 

18 

76 0 8- 

20 

97 

6F 

32 

04 

00 

20 

DE 

7610- 

E: 6 

92 

92 

12 

36 

2D 

4D 

49 

7618- 

49 

29 

25 

24 

08 

18 

0 3 

13 

7620- 

03 

18 

08 

18 

20 

3C 

27 

0 0 

762.8- 

00 

00 

0 0 

0 0 

0 0 

00 

0 0 

0 0 


to cursore. Anche con questo programma le scrit¬ 
te possono essere orientate in una qualsiasi delle 
quattro possibili direzioni. 

Per iniziare a scrivere in una direzione determi¬ 
nata è sufficiente sceglierla mediante i tasti <E>. 
Da quel momento tutti i caratteri scritti avranno 
l'orientamento prescelto. Per tornare indietro si 
può usare la freccia a sinistra mentre la freccia a 


Figura 4 - Comandi che 
permettono di manipola¬ 
re le shape. 


Figura 5 - Shape table 
dell’alfabeto ASCII. 


Figura 6 - Shape table 
dei simboli. 
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destra non è abilitata. Qualsiasi comando errato 
non viene comunque accettato e viene emessa 
una segnalazione acustica. 

La figura 3 mostra il disegno di figura 2 comple¬ 
tato delle scritte ottenute con questo program¬ 
ma. 


Stampa dei disegni 

La stampa dei disegni così ottenuti è permessa 
su una qualsiasi delle stampanti grafiche che 
sono disponibili per l'Apple II. lo ho usato la 
stampante grafica Itoh messami gentilmente a 
disposizione dalla ditta "Audio Canalgrande In¬ 
formatica" di Modena che mi ha anche fornito il 
programma di stampa della pagina grafica. Il 
procedimento per stampare il disegno è molto 
semplice e consiste nel caricare il disegno da 
dischetto e lanciare quindi il programma di stam¬ 
pa contenuto nell'interfaccia grafica. Questo 
programma pone la stampante in modo grafico 
e poi invia tutti i punti della pagina grafica alla 
stampante che ne stampa 7 alla volta in vertica¬ 
le. 


Ampliamenti 

Al programma presentato sono apportabili nu¬ 
merose modifiche ed ampliamenti. 

La modifica più interessante è, a mio avviso, quel¬ 
la di considerare la pagina grafica come una 
finestra su di un disegno molto più grande. 
Un'altra possibilità è data dal fatto che il disegno 
finale può essere fatto tramite un plotter invece 
che con una stampante grafica. All'interno del 
programma si dispone infatti della matrice D% 
che contiene tutte le shape del disegno mentre 
la matrice R% contiene l'orientamento delle varie 
figure. Con un opportuno programma è quindi 
possibile riportare su plotter il disegno memorizza¬ 
to nelle due matrici indicate. 

Naturalmente le shape presentate sono relati¬ 
ve a disegni di schemi elettrici, ma possono 
essere cambiate a piacere per eseguire disegni 
di tipo totalmente diverso. Se volete avere degli 
spunti su quali possono essere i disegni elementa¬ 
ri, ovvero le shape table utili ad una determinata 
applicazione vi consiglio di comprare, in una 
qualsiasi cartoleria, il catalogo Letraset e formare 
le shape copiando i disegni che vi sono riportati. 


Listato 1 - Programma 
atto alla divisione della 
pagina grafica in una 
griglia di 18x10. 


\ 



10 0 

32.0 

330 
3 4 0 
350 
36 0 
366 
370 
38 0 

331 
382 
40 0 
80 0 
44Q0 
4410 

4420 
4430 
4435 
444 0 
4441 
4450 
450 0 
4510 
4520 

453 0 

454 0 

4542 

4545 

4546 

4547 

4543 

4549 

4550 
4560 
4570 


0 


HGR : HOME : HCOLOE : = 31 SCALE- i: EOE 

REM - CARICAMENTO SHAPES TABLE —.— 

PRINT CHR$ (4);"BL0AD ELI" 

SH « INT (30000 / 256) :SL.. = 30000 - 256 * SH 
P0KE 232 r SI. t P0KE 233 » SH : REM SET STI" 1 01NTER 

himem: 30000 

SCALE- i: ROT- 0 

REM ..- INIZIO PROGRAMMA -- 

DIM D%<18*10)vR%(18*10) 

o:x = i:y = ì: co sub 60 oo:c = 

16384 y 0 

- LOOP PRINCIPALE .. 


R 


11 


458 0 


»j/ 
r5J 

4590 
46 0 0 


4610 


4620 
4630 
464 0 

4650 

466 0 

467 0 

468 0 


PQKE 

REM 

REM 

REM 

T 


MOVIMENTI DEL CURSORE 


= P 

EEK ( - 16334): 

IF 

T 


> 

127 

THEN POKE 


50 0 











ROT « 

0 










XDRAW 

C AT (X - 

1 ) * 

15 

4 


TA 

» ( Y 

— 

1) * 15 

4- TA 

POR I 

~ 1 TO 200 

: NEX 

T 








XDRAW 

C AT (X - 

1 ) * 

15 



TA 

» ( Y 

— 

1) * 15 

4 TA 

POR I 

= 1 TO 2.0 0 

: NEXT 








GOTO 

p> r m ~ 

4410 










rv t.. n 

IF T$ 

= "I" THEN 

Y =: 

Y - 


1 

♦ 

♦ 

GOTO 

4 

545 


IF T$ 

= "M" THEN 

Y 

Y + 


1 

♦ 

♦ 

GOTO 

4 

545 


IF T$ 

= "J" THEN 

X ss 

X - 


1 

♦ 

♦ 

GOTO 

4 

545 


IF T $ 

* "K" THEN 

X - 

X + 


1 

♦ 

♦ 

GOTO 

4 

5 4 5 


GOTO 

4550 










IF X 

~ 0 THEN X 

= 1 









IF X 

- 19 THEN X 

- 13 









IF Y 

- 0 THEN Y 

~ 1 









IF Y 

* 11 THEN Y 

« 10 









GOSUB 

6000: GOTO 

44 0 0 









REM 

-.— ROT AZ 

IONE 

-.- 

•- 

.... 

. 





IF T$ 

= "<■ OR T 

$ = " 

u 

T 

H 

EN 

458 

0 



GOTO 

464 0 










IF 0 % 

( X » Y ) = 0 T 

HEN 

PRI 

N 

T 


CHR$ 

( 

7)1 Gore 

) 440 

GOSUB 

80001 REM 

GANG 

ELL. 

A 


IL 

PEZ 

ZO 



Li. 

H 

= "<" THEN 

R % ( X 

» Y) 



R% ( X » 

Y) 

- 16: ] 

CF R% 


16334»0: GEI T*: GOTO 


THEN R%(X * Y) 


R Z ( X » Y ) 4 - 


X » Y) = 48 
IF T $ = "> 

) - 0 

GOSUB 9000 : REM DISEGNA IL. PEZZO 
GOTO 4400 


16: IF R%(X » Y) 


- 16 THEN R%( 
64 THEN R7.(X»Y 


- CANCELLA IL PEZZO --- 

IF T$ < > "C" THEN 4700 

IF D %(X » Y) « 0 TH E N PRIN T CH R$ < 7)J G 0 T 0 44 0 0 
GOSUB 300 0 : REM CANCELLA IL PEZZO 
D%(X » Y) = 0 


t 
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. 



4690 

GOTO 4400 




47 0 0 

REM .— POSIZIONA IL PEZZO - 




4705 

IP ASC (T$) = ó THEN 20000 




4710 

GOSUB 9500 




472 0 

IF ER = 1 THEN PRINT CHR$ (7): GOTO 4400 




473 0 

IF 07. < X, Y > < > 0 THEN GOSUB 80 0 0 




4740 

D%(X f Y) = Si GOSUB 90 0 0 




475 0 

GOTO 4400 




6 0 0 0 

REM .-. TRASF♦ COORDINATE - 




60 05 

IF R%(X » Y) = 0 THEN X2 = 0:Y2 = 0 




6010 

IF RX(XfY) .16 THEN X2 « 14ÌY2 = 0 




6020 

IF R% < X » Y) ~ 32 THEN X2 - 14JY2 = 14 




6 0 3 0 

IF R% < X * Y) = 48 THEN X2 » 01Y2 ~ 14 




6 0 4 0 

XI « (X - 1) # 15 TA + X2 




6050 

Y1 ~ (Y - 1) * 15 + TA + Y2 




6060 

RETURN 




8 0 0 0 

REM - CANCELLA IL. PEZZO A X»Y ROT=RZ(X»Y).-. 




8 0 1 0 

HCOLOR» 0 5 ROT» R"X(X,Y): GOSUB 60 00 : DRAW DX(XrY) 

AT 

XI 

y Y1 

8 0 2 0 

RETURN 




9 0 0 0 

REM -..- DISEGNA IL PEZZO A X r Y ROT =R7.(X»Y> — 




9 0 1 0 

HCOLOR» 3! ROT» R7.(X,Y)J GOSUB 60 00 : DRAW D%(X,Y> 

AT 

XI 

f Y1 

9 0 2 0 

RETURN 




95 0 0 

REM . RICERCA IN TABELLA DEL SIMBOLO - 




9510 

ER » 0 




952 0 

IF T$ < " 1 ■ OR T$ > •?“ THEN ER = i: GOTO 960 0 




9530 

S ••= UAL (T $) + 1 




96 0 0 

RETURN 




20000 

REM -. -FINE PROGRAMMA --— 




200 10 

TEXT : HOME 




20020 

INPUT "NOME DISEGNO ? ";N* 




20030 

PRINT C'HR$ ( 4 ) J * BSAOE 1 J N$ > ■ * A8192 y L 8192 " 




20040 

END 





Seguilo listato 1. 




















Hi *:s 

• M ••• 
M* ••• 
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MtM* 
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SISTEMI PER L’INFORMATICA , 

ROMA - Via Fonti del Clitunno, 11 - Tel. 06/7945423 









PESCARA - Via F. De Blasiis, 9 - Tel. 085/692576 















PERSONAL • RETI DI PERSONAL - MINICOMPUTER da 16 e 32 BITS. 
PERIFERICHE SPECIALI: PLOTTER • TAVOLETTE GRAFICHE - VIDEO GIGANTI 
STRUMENTAZIONE: CONTROLLORI PROGRAMMABILI - COMPUTER 

PER LA GESTIONE DI SISTEMI E COLLEGAMENTO 
STRUMENTI DI MISURA DA LABORATORI. 


PROGRAMMI PER LA GESTIONE DELLA SCUOLA: 

STIPENDI - PAGELLE - CONTABILITÀ FINANZIARIA - GRADUATORIE - ECO. 

PROGRAMMI PER LA DIDATTICA: 

RAGIONERIA - MATEMATICA - CHIMICA - ELETTRONICA - ELETTROTECNICA 

PROGETTI SPECIALI 

CORSI: PROGRAMMAZIONE STRUTTURATA; BASIC; COBOL; ASSEMBLER. 
MICROELETTRONICA E MICROPROCESSORI. CONTROLLO 
DI PROCESSI INDUSTRIALI 

PROGRAMMI PER LA GESTIONE AZIENDALE: CONTABILITÀ E MAGAZZINO 
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Listato 2 - Programma 
per l’inserimento di tutti 
i caratteri del set ASCII. 



50 
10 0 

320 
330 
3 4 0 
350 
36 0 
366 
370 
38 0 


HGR I 
HOME 


T EXT 


FRI NT CURI (4) » "BLOAD 


POI (E 


SH = INT 
POKE 232 »SL 

himem: 30000 

SCALE- il ROT a 0 

REM .. INIZIO 

T A ( 3 0 ) : 

:x « 


CARICAMENTO SHAPES TABLE 

ALFABETO" 
(30000 / 256)JSL = 30000 

REM SET 


233»sh: 


256 * SH 
STPOINTER 


HCOLOR- 3 

PROGRAMMA -- 

BUFER SCRITTURA 


332 

4 0 0 
A 0 7 
4 1 0 
42 U 
4 3 0 
450 

44 0 0 
4410 

4420 
4430 
4435 
444 0 
4441 
4450 

45 0 0 


R « 0 
POKE* 
REM -• 
HOME 
INPUT 
FRINÌ 
POKE 
GOTO 


1 : Y 


:c « 3:DI = 5SES 


0 


: 11 


1 :st = i 


16 


V 0 

CARICAMENTO 


DISEGNO 


454? 
4550 
4560 
4570 
453 0 


I = 

450 0 
RO T - R 


“NOME DISEGNO ? “5 
CURI (4);"BLOAD ' 
16304» 0 : POKE - 
440 0 

MOVIMENTI DEL 
F'EEK ( - 16384): Il 


m 

; nt 

16300 » 0 : POKE 


16297 » o : POKi: 


16302» 0 


CURSORE 
T > 127 


THEN POKE 


16384»0: GEI 


ti: 


GOTO 


XDRAW 
POR I 
XDRAW 
POR I 
GOTO 
REM 


C 


v v 

A 9 T 


AT 

1 T O 
AT X» 
= 1 TO 
441 0 


20 0 : NEXT 


C 


2 0 0 


NEXT 


4503 

IF 

ES a 0 THEN 4300 



450 4 

ir 

T t > “0" AND T$ 

< "t" THEN ST 

a VAI. 

4505 

IF 

T$ a -i« OR TI a 

“M" QR T$ a -, 

J" OR 


« V M 

THEN 4510 



45 0 6 

ES = 

- o : c a 3:11 i : 

GOTO 4400 


451 0 

IF 

T$ a “i- THEN Y 

a Y - Ìf| GOTO 

4545 

4520 

IF 

ri a -M" THEN Y 

a y + st: goto 

4545 

4530 

IF 

TI a -j- THEN X 

a x - st: goto 

4545 

454 0 

IF 

TI a -K" THEN X 

= x + st: goto 

4545 

4542 

GOTO 4550 



4545 

IF 

X < 0 THEN X a o 



4546 

IF 

X > 279 THEN X a 

279 


4547 

IF 

Y < 0 THEN Y a o 



4548 

IF 

Y > 159 THEN Y a 

159 



(T$) 


TI 


GOTO 
K “ OR 


44 0 0 
T$ a 


OR T $ 


GOTO 4400 


464 0 


IF T$ 
GOTO 
IF T$ 


4590 
460 0 
4610 
4630 
464 0 

480 0 

481 0 
4820 
433 0 
484 0 
4850 
4355 
4856 
4858 
486 0 
4865 
490 0 
49 0 3 


IF 
IF 
IF R 
GOTO 
REM 
REM 
IF 


T $ 
R 


« 64 

44 0 0 


ASC 


ROTAZIONE 
• OR T$ = 

THEN R a 
■" THEN R a 
16 THEN R : 
THEN R « 0 

SCRITTURA 


R « 
R + 
‘ 43 


THEN 4580 

• 16 
16 


27 


( T$ ) 

IF ASC <T$) 

Il a li - 1 

IF II a 0 THEN BRINI 
IF R a o THEN X a x ~ 

IF R a 16 THEN Y a y 

IF R a 32 THEN X a x 

IF R a 48 THEN Y a Y 

XDRAW TA(I1) AT X»Y 
GOTO 4400 

IF ASC (T$) a 6 THEN 
IF ASC UT) < 33 OR 


THEN C 
8 THEN 


a 2JES a 
490 0 


GOTO 4400 


CURI 

DI 

~ DI 
-»• DI 
+ DI 


(7)1 C 


n ♦ 

l.. ♦ 


GOTO 4400 


700 0 : REM 
ASC (T$) : 


SALVA IL 
90 THEN 


DISEGNO 
BRINI CHR$ 


(7) : 


GOTO 4400 


4905 LI a ASC <T$> ~ 29 
4910 XDRAW LI AT X»Y 
4920 TA(I1) a LTtll a n + i 
4930 IF R a o THEN X a x + DI 

4940 IF R a 16 THEN Y a y + DI 

4942 IF R a 32 THEN X a x - DI 

4945 IF R a 43 THEN Y a y - DI 

4950 GOTO 4400 

70 0 0 REM - SALVA IL DISEGNO- 

7010 TEXT t HOME 

7020 INPUT "NOME FILE ? "*AI 

7030 BRINI CHR$ <4>»"BSAVE “ t A$ t “»A8192»L8192" 


t 
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EDI MONO - EDI MULTI - EDI A RETE 

( Prodotto in Italia! ) 

il miglior rapporto prezzo/prestazioni da EDICONSULT 

ai prezzi più bassi del mercato 




EDI 8” e EDI 8” + 5” 


EDI 5” 

Minifloppy da 5”, da 400 a 1600 KB (da 1 a 4 unità: 400 KB) 

Discofisso da 5”, da 5 a 40 MB (da 1 a 4 unità: 5 o 10 MB) 

Espansioni multiuser o a rete disponibili subito 

Es. config.: 64 KB + 2FL5” (800 KB) + Video Term. = Lire 5.515.000 = U.F. 

64 KB + 1FL5" (500 KB) 4- Disco 5” (5 MB) + Video Term. = Lire 8.445.000 = U.F. 


■DtCOMSUtT 


Floppy da 8”, da 600 a 4800 KB (da 1 a 4 unità: 600 o 1200 KB) 

Discofisso da 5”, da 5 a 40 MB (da 1 a 4 unità: 5 o 10 MB) 

Discofisso da 8”, da 20 a 160 MB (da 1 a 4 unità: 20 o 40 MB) 

Espansioni multiuser o a rete disponibili subito 

Es. config.: 64 KB = 2FL8” (2.4MB) 4- Video Term. = Lire 6.680.000 = U.F. 

64 KB + 1FL8” (1.2 MB) 4- Disco 5” (10 MB) 4- Video Term. = Lire 9.395.000 = U.F. 
64 KB 4- 1FL 8” (1.2 MB) 4- Disco 8” (20 MB) + Video Term. = Lire 14.510.000 = U.F. 



Abbreviazioni: FL = Floppy. KB = Kbytes. MB = Megabytes. U.F. = Utente Finale 



Richiedete il prospetto di informazione tecnica a 

EDICONSULT 


Sede: 20052 MONZA - Via Rosmini, 3 - Telef. (039) 389.850-360.727 
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ZX SPECTRUM 



Doppietta per ZX. 

Due programmi a grafica 

predominante 


Listato 1 - Programma 
per caricare e registrare 
schiera per SLOT- 
MA CH: il listato si ot¬ 
tiene eseguendo il pro¬ 
gramma LIST allegato 
su cassetta che usa co¬ 
mandi LPRINT. 







DIM 

FOP. 


RERD 
NEXT 
SfiUE 
DftTfi 
DPT fi 


10 
20 

6 

30 
40 
50 
101 
102 
55 

103 

5.255 

104 DfiTfi 

105 DfiTfi 

106 DfiTfi 
254 

107 DfiTfi 
1,255,127 

106 DfiTfi 

6.252.252 

109 DfiTfi 
3 

110 DfiTfi 
9,175.3 

111 DfiTfi 
,245,132 

112 DfiTfi 

2.252.252 

113 DfiTfi 

114 DfiTfi 

5.255.63 

115 DfiTfi 

5.255.252 

116 DfiTfi 
2,128,0 

117 DfiTfi 

55.255 

118 DfiTfi 

119 
,254 

120 

5.63 
121 
122 


X (5,136) 

2=1 TO 5: POR »=1 TO 13 

X ( Z , ) 

m: NEXT z 

"SLOTS** DfiTfi x O : 5TOF 
0 , 0 , 0 , 0 , 0 , 0 , 1,3 
0,0,3,31,127,255,255,2 


DfiTfi 0,0,192,243,254,255,25 

0,0,0,0,0,0,123,232 
7,7,25,25,3 2,32 ,63 ,63 
255,143,7,7,7,243,255, 

255.241.224.224.224.24 

224.224.240.240.243.24 
63,63,63,83,63,63,53,5 

252.249.243.232.207.25 
63,159,207,232,243,249 
252,252,252,252, 


4^ , 

252,25 


255.255 

123 DfiTfi 

5.255.255 

124 DfiTfi 

5.255 

125 DfiTfi 
8,192 

126 DfiTfi 

5.255.255 

127 DfiTfi 

5.255.255 

128 DfiTfi 
0,224,0 

129 DfiTfi 

130 DfiTfi 


0 


131 

132 

133 

134 


DfiTfi 

DfiTfi 

DfiTfi 

DfiTfi 


1.255.255 

135 DfiTfi 

136 DfiTfi 

2 

137 DfiTfi 
5,127 

138 DfiTfi 

8 

139 DfiTfi 

140 DfiTfi 
,255,255 

141 DfiTfi 

55.255 

142 DfiTfi 

5.255.255 

143 DfiTfi 

144 DfiTfi 

,0 


63,31,31,15,7,3,1,0 

241.254.255.255.255.25 

143.127.255.255.255.25 

252,248,248,240,224,19 

255,143,31,31,31,143,2 

0,0,0,0,3,7,15.3! 

DfiTfi 0,0,63,255,255,255,255 

DfiTfi 0,0,128,240,252,254,25 

D PT fi 0,0,0,0,0,0,0,0 
DfiTfi 31,63,127,127,255,255, 


252.252.252.254.255.25 

31.31.31.53.243.233.25 
192,248,255,0,0,255,24 

255.255.255.255.255.25 
255,255,255,255,255,25 

255.255.254.252.248.24 

0.0.0,0,0,0,0,0 

254,240,192,128,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

255.241.248.248.248.24 

0,0,0,0,0,0,0,0 
0,0,1,15,63,127,255,25 

0,0,252,255,255,255,25 

0,0,0,0,192,224,240,24 

3,31,255,0,0.2S5,31,3 
248,248,248,252 , 31 , 255 

63,63,63,127,255,235,2 

248.252.254.254.253.25 

0,0,0,0,0,0,0,0 

•; O "T* *“ 5*1 •; r; 


di G. M. Meliina 


I l primo programma, GRAFCOMP, ha molte 
possibilità rivolte all'utilizzo dei caratteri 
grafici ("user defined graphics"). 

L'uso più semplice è quello che consente di cari¬ 
care singoli caratteri grafici immettendone gli 8 
bit in binario oppure in esadecima le, e verificarne 
l'immissione mediante la stampa automatica 
del carattere creato, ingrandito 64 volte. 

Una volta creati i caratteri desiderati, è offerta 
la possibilità di registrarli su cassetta salvandoli 
come CODE e di verificarne la registrazione. 

La possibilità più interessante è però quella che 
consente di creare "composizioni grafiche" della 
dimensione desiderata: il limite massimo è dato 
dall'ampiezza dello schermo (22 righe) per il nu¬ 
mero di caratteri grafici consentiti dallo Spectrum 
( 21 ). 

Come conseguenza del punto precedente, il 
programma offre la possibilità di stampare in 
qualsiasi momento la composizione parziale o 
definitiva, centrandola sullo schermo in base alle 
coordinate che noi abbiamo scelto. 

In qualsiasi momento è anche consentito mo¬ 
dificare singoli caratteri della composizione e va¬ 
lutarne il risultato tramite stampa della stessa, 
che in questo caso avviene automaticamente al 
termine della variazione. 

Infine è naturalmente possibile comandare la re¬ 
gistrazione su cassetta della videata con la com¬ 
posizione, salvandola come SCREENS e/o della 
schiera, che illustro di seguito, salvandola come 
DATA, ed eseguirne la verifica. 

Per creare una composizione grafica, il pro¬ 
gramma usa una tabella (schiera), dimensio¬ 
nandola in funzione dei valori da noi immessi in 
fase di inizializzazione (max 22 righe x 21 colon¬ 
ne): in essa verranno memorizzati, riga per riga, i 
caratteri grafici che creeremo singolarmente. 
Quando si richiede la stampa della composizio¬ 
ne, ogni singola riga di tabella viene impostata 
nell'area di memoria "user defined graphics" e 
stampata, ottenendo così la composizione com¬ 
pleta. 

Due sole avvertenze: le righe debbono essere cre¬ 
ate in sequenza dall'alto verso il basso, dalla 1 
(riga superiore della composizione e prima riga 
della tabella) alla n (max 22: ultima riga inferiore 
della composizione e della tabella); il comando 
di memorizzazione riga va dato solamente quan¬ 
do tutti i caratteri richiesti in quella riga sono stati 
creati. 


26 - 1984 6 Bit 

























Le singole colonne di ciascuna riga sono identifi¬ 
cate con le lettere a^u corrispondenti agli "user 
defined graphics". 

Le istruzioni e l'esemplificazione incorporate nel 
programma dallo statement 1000 e seguenti 
penso siano più che sufficienti per chiarire il mec¬ 
canismo. 

Da rilevare inoltre che, una volta inizializzato il 
programma immettendo i parametri di colonne 
e righe per il dimensionamento della tabella, è 
possibile interromperlo con BREAK ed eseguire il 
LOAD di una schiera precedentemente salvata 
per potervi apportare modifiche sfruttando tali 
possibilità di variazione offerte dal programma. 

Ciascuno, secondo i propri gusti e le proprie 
necessità, potrà poi completare a piacere la 
schermata contenente la composizione, con ti¬ 
toli od altro, ed anche colorarla facilmente ese¬ 
guendo dei POKE nell'area di memoria corrispon¬ 
dente agli attributi (esempio per paper rosso: POR 
n = 22528 TO 23295: POKE n,16: NEXT N). 

A titolo di esempio, allego la composizione di 
una "formula 1 " da me creata e magnificamente 
colorata in rosso, così da ssomigliare ad una ram¬ 
pante Ferrari! 

Il programma, caricato su CPU 16 Kbyte, consen¬ 
te la creazione di composizioni limitate (max 32 
caratteri: ex. 4 x 8): è però sufficiente cancellare 
gli statement corrispondenti alle istruzioni (da 
1000 a 1130), dopo averli naturalmente trascritti, 
per sfruttare al massimo le possibilità di composi¬ 
zione. 

Il SAVE del programma completo di istruzioni, de¬ 
ve essere eseguito con l'opzione LINE 1000. 

Il secondo programma, SLOTMACH, è un diver¬ 
tente giochino d'azzardo, una slot-machine co¬ 
me risulta già evidente dal nome, in cui l'anima¬ 
zione svolge un ruolo predominante. 

Per non togliere completamente il piacere del¬ 
la sorpresa, dirò solo che nelle finestrelle della 
slot-machine possono comparire, a seguito di 
ogni puntata. In combinazione del tutto casuale, 
tre delle quattro possibili figure: canarino, mela, 
limone, dollari. 

Naturalmente si può perdere o vincere a secon¬ 
da della combinazione risultante. 

Dirò anche che le mele possono essere bacate, e 
ciò comporta una penalizzazione... ma il canari¬ 
no, se può, cercherà di favorirci mangiandosi i 
dannosi vermetti, dando vita ad una piacevole 
animazione. 

Non resta che tentare la fortuna e sperare nella 
giusta randomizzazione del vostro Spectrum! 

Per gli impazienti o per coloro con l'indice or¬ 
mai decisamente storto, posso suggerire di ap¬ 
portare temporaneamente le seguenti modifi¬ 
che al programma: 


145 DRTR 
5,255,255 
14-6 DRTR 
5,255,255 
14-7 DfiTfl 
14-8 DfìTfi 
14-9 DRTR 

150 DRTR 

151 DRTR 

0 

152 DRTR 

153 DRTR 
154- DRTR 

155 DRTR 

156 DRTR 
234.221 

157 DRTR 
,255,127 

158 DRTR 

5 , e£ 5 5 , 5 5 

159 DRTR 
5,255,255 

160 DRTR 
7,118,63 

161 DRTR 
,191,95 

162 DRTR 
5,255,255 

163 DRTR 
4,254,252 

164 DRTR 

165 DRTR 
0,0 

166 DRTR 

8 , 0.0 

167 DRTR 

0,0 » 

168 DRTR 

169 DRTR 

170 DRTR 

171 DRTR 
75 

172 DRTR 

173 DRTR 

174 DRTR 
6,85,170 

175 DRTR 
5,255,255 

176 DRTR 
8,248,248 

177 DRTR 

6 

178 DRTR 
95.191 

179 DRTR 
5,255,25^ 

180 L>HfR 
4,224,192 

181 DRTR 


182 

DRTR 

, 0 .. 0 


183 

t 

8,0. 

0 

184 

DRTR 

185 

DRTR 


255 , 255 , 255 , 255 , 255,25 

255 , 255 , 255 , 255 , 255,25 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
127 , 15 , 3 , 1 , 0 , 0 , 0,0 
0 , 12 , 110 , 251 , 241 , 96 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 3,15 
0 , 0 , 2 , 7 , 3 , 1 , 249,255 
0 , 0 , 0 , 0 , 0 , 128 , 159,255 
0 , 0 , 0 , 0 , 0 , 0 , 192,240 
31 , 55 , 109 , 118 , 234 , 213 , 

255 , 95 , 183 , 219 , 119,191 

255 . 255 . 255 . 255 . 255 . 25 

248 . 252 . 254 . 254 . 255.25 
234 , 221 , 234 , 245 , 234,11 
255 , 191 , 255 , 127 , 191,95 

255 . 255 . 255 . 255 . 255.25 


255,255,255,255 


55,25 


63,31,15,7,1,0,0,0 
171,87,175,255,255,61, 

255,255,255,255,255,18 

252,248,240,224,128,0, 

0,0,0,0,195,231,60,24 
0 , 0 , 0 , 0 , 0 , 0 , 0,1 
0,0,0,7,31,123,245,234 
0,0,0,248,252,254,95,1 



127,191,127,255,127,25 
192,224,240,248,248,24 


61 , 58 , 53 , 58 , 53 , 26 , 21,2 
117,205,85,171,37,175, 


255 

,2 

55, 

2 

55, 


55 

/ — 

55 

,25 

24 8 

g 

43, 

2 

48, 

•jy 

40 

t ^ 

40 

,22 

30 , 

15 

15 

/ 

15, 

r 1 

, 0 

, 0 

, 0 


255 

g 

55 , 

255 , 

t 

55 

.2 

55 

,31 

2 3 L* 

•■s 

e 

55 , 

• « 

34 , 

t *ZL 


y ^ 

40 

/ ±2 

128 

, 0 

/ 0 , 

0 

( 0 , 

, 0 

/ 0 

/ 0 



0,48, 

113 

/ 

22 : 


14 

3, 

5 , 

0 , e 


Volendo aumentare le probabilità di comparsa 
del canarino e conseguentemente una maggior 
frequenza delle animazioni, si possono apportare 
permanentemente le seguenti modifiche: 


220 LET xx = INT (RND*-5): IF xx=4 THEN LET xx=1 

221 RETURN 

1101 GOSUB 220: LET a=xx: LET po=6:GOSUB 200 

1102 GOSUB 220: LET b=xx: LET po=14: GOSUB 
200 

1103 GOSUB 220: LET c=xx: LET po=22: GOSUB 
200 


210 LET v=2 

1101 LET a=2 

1102 LET b=1 

1103 LET c=2 


oppure: 


LET a=1 
LET b=2 
LET c—1 
LET v=2 


Per i disegni ho utilizzato il precedente program¬ 
ma GRATCOMP salvando poi la schiera come 
CODE: il programma SLOTMACH salvato con LINE 
2000, quando viene caricato e va in esecuzione, 
esegue automaticamente il LOAD della schiera 
SLOTS allo statement 2010. 

Vi fornisco però il programmino che consente 
di creare la schera mediante DATA una volta 
eseguitolo, effettua la registrazione della schiera 
su cassetta con il comando SAVE "SLOTS" DATA 
x(). 


Seguito listato 1. 
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Listato 2 - Programma 
SLOTMACH versione 
originale. 



1 >REM 






2 . t. r u 

» » » ^ i ; 

TK 
C- 


© G.M.Mfi UiHa 
2 IN P UT RT 0,0; ‘ ‘ 5 e V U C« a 
zioni sui puntagli . isn £• 1 1 i 

: ".***= = > *‘j LINE Z$: IF Z $ = " i " 

EN GO TO 1500 

10 BORDER 5: POKE 23693.105: 

LS : POKE 23509.255 

4-1 P OR n=0 TO 14- 5TEP 2. PRIN T 
RT G, n ; ’■£»*'' ; rt i , n ; ”»£* ! ; RT G , n -> 
L6; "■■*1" ; RT i,n *16 ; "àm" ; RT 14-, n ; ‘ 
“F"RT 15 . n ; ' S*»” ; RT 14 . n 4-16; "TP" 
, RT 15, n+IS; *13’'': NHXT n 

4 2 POR n =1 TO 5 5TEP 2 ; RPINT 
hT n 0 ' S Tf“ R r.- 4 - 1 , 0 ; » i" ; h ; n , 3 

Pi TIC ; * T n+ 1 , 30 ; "H'^flT n+7,©;** 
U* ; RT n 4-s, 0 ; *JW 8" ; RT n*7, 30 , "fe, ?" 
; RT n +S , 30: rif 7 : NEXT n 

43 PRINT RT G . G ;■***•: RT 0,31; "I 
";RT 15 ,0 RT Ì5,3Ì:"l"jRT 1 

l; *’V; RT 1 , 33 ; *'*•"; RT 7 , 0 ; ; RT 

7,30.; "Ti” ; RT 14,0; "S #*" ; RT 14,3© 

; "SI" 

50 FOR Z -0 TO 4: POP n =0 TO 7: 
POKE USR “q '’+2 48+n ,X (2+1 ,n-ti29> 

: NEXT r { : NEXT 2 

6© GO SUB 106: GO SUB 102; GO 
TO 1000 

100 POKE 23693,66; LET z $ =• " $ $ % & 
** : GO TO 103 

101 POKE 23693,87: LET z $=" ?•? ? ? 
*’ : GO TO 103 

102 LET p0=6: GO SUB 130; LET p 
0=14: GO SUB 100; LET p0=22: GO 
SUB 100: RETURN 

103 FOR n=6 TO 9: PRINT RT n,PO 
JZ$: BEEP .1,15-n: NEXT n: RETUR 
N 

105 POKE 23693,104. PRINT RT 7 
10;** ’ * ; RT 7,16;*' ” ; RETURN 

1©6 POKE 23593,43; PRINT RT 16, 
0; ** . FOR n = 1 TO 131. frinì " 

*•; : NEXT n : RETURN 

110 POKE 23693, COL: FOR iti =3 TO 

3: LET z =144+J» *4 : PRINT RT 6-F&,p 
o; CHR$ Ì2) ;CHR$ (Zfl) ;CHR$ iZ+àì 

;CHR$ (2 4*3): BEEP . 1,» *2*12; NEX 
T FIO : RETURN 

111 LET 2=1: LET CO 1=70; LET pK 
=1: GO TO 120 

112 LET Z =4 : LET COL=114. LET p 
K=2 : GO TO 123 

113 LET Z=5 : LET COI=132; LET p 

K =3 : GO TO 120 % 

114 LET Z=2 : LET CO 1=70; GO TO 
120 

115 LET Z=3: LET COL=73 

120 FOR n=© TO 127. POKE USR "a 
*• +n , X C Z , H + 1 ) ; NEXT n ; RETURN 

121 POKE 23693.104. PRINT RT 7, 

VO+1.; GO SUB 125; PRINT RT 7 

.VO^’V’: GO TO 125 

122 POKE 23693.104: PRINT RT 7, 
V o ; ***•" : GO SUB Ì25: PRINT RT 7,V 
o; ”%✓"•’* ; GO TO 125 

123 POKE 23693,104: PRINT RT 7 , 
vo; "«v-jfiT 6, vc> ; ** ”;RT a , vo ; " 

" j RT 9,voj M : RETURN 

124 POKE 23693,104. PPJNT RT 7- 

■ RT 6, V o ; ** " ; RT © , v o ; “ 

" ; RT 3,VO; •' " : RETURN 

125 BEEP .1.23: PROSE 15. RETUR 
N 

131 PRINT PRPER G; INK ©; FLR5H 
l;RT 7 , PO+2; "C* ; GO SUB 114; GO 
SUB 110 : PRUSE 10 

132 FOR m =0 TO 1: LET s 4 =PO-Ff». L 
ET Z=l+.%*4: FOR n -0 TO 5. PRINT 
RT 6+n , y ; c$(z+n) . NEXT r». NEXT 

FOR m -0 TO 3: LET >_» -p c- 4 r/; 4-2 ■ LF 
Z = 144 4-m . hUH n =0 I O 3. PRINT R 
T 6 +n, y ;chr $ ■ z +n *4 ) ; mext n; me 

xt m 

133 PRUSE 10; LET VO=PD+4. PRIN 

T PRPER 5 ; RT 7,vo+2:’* “ : GO SUE 

123: LET CO U70: GO SUB 110 

134 GO SUB 111; PRINT PRPER 3; 

INK 0.; RT 7,VO; "v GO SUB 125 : 

PRUSE 10 : PRINT PRPER S ; RT 7 , V c« : 
*’ ** : GO SUB 136 

135 PRUSE 10; GO SUB 110; RETUR 
N 

136 PRINT FLfìSH 1;RT 9,po;"i": 
FOR n =1 TO 3: BEEP .1,12: BEEP , 
05 , - 12 : BEEP . 05 , O : NEXT n ; RE7L» 
RN 

141 PRINT PRPER 0; INK 6: FLRSH 
1 .; HT ?,P0+1;"3*‘: GO SUB US: GO 
SUB 110: PRUSE IO 

142 FOR fft =0 TO 1: LnT y=po4»+2: 
LET Z=i+m*4. FOR n=0 TO 3: PRXN 

t rt 6+n , y, c 4 (2 +•n ) ; NEXT n .* msx • 
m ; FOR »=3 TO 0 STSP -1; LET y = 


v O , 


Le pause che si avvertono durante l'esecuzione 
del gioco e che purtroppo ne rallentano un poco 
il dinamismo, sono dovute al tempo, inspiegabil¬ 
mente lungo, che lo Spectrum impiega per ese¬ 
guire il POKE dei 16 carateri grafici necessari per 
visualizzare ogni figura. Occorrerebbe scrivere la 
routinetta (statement 120) direttamente in lin¬ 
guaggio macchina e il problemino sarebbe risol¬ 
to. 

La versione originale dei programma non può 
girare su CPU 16 Kbyte, ma anche qui piccole 
modifiche che non intaccano minimamente l'es¬ 
senza e l'animazione del gioco risolvono il proble¬ 
ma. 

Occorre eliminare le istruzioni (statement 1500 
-r 1530) e gli statement che stampano la cornice 
del riquadro (41 4- 43) e “pokano" i caratteri 
grafici q-r-s-t-u (50) e modificare i seguenti state¬ 
ment: 


2000 REM DIM x(5,128) 

2010 CLS: PRINT AT 3,2; FLASH 1 ; TOADING DATA 
e CODE": LOAD “SLOTS" DATA x( ): LOAD 
“SLOTG" CODE USR “q" GO TO 1 


Naturalmente occorre registrare su cassetta i due 
blocchi di dati: vi fornisco perciò il programmino 
che consente di creare la schiera ed il POKE dei 5 
caratteri grafici mediante DATA una volta ese¬ 
guitolo, effettua la registrazione di schiera e grafi¬ 
ci con i comandi SAVE “SLOTS" DATA x() e SAVE 
“SLOTO" CODE USR “q", 40. 

In tutti i casi il save del programma SLOTMACH 
deve essere eseguito col l'opzione LINE 2000. g 
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2 • L ET = c : GO SUI? 


0; “Hai puntato",."» ";pnt ; 

flIS Ir 3=b RND 3=C TH£N GO TO .1 


* ** .i ) i S 

a50 


1163 IF iap C =0 THEN P.RINT "bai r 

1111 IF 3=0 fi.ND Vb=0 OR C =0.1 Tnr 


2 scoiato troppo". * ' e sei finito ~ 

hi &L ; r D lisi 


u l sut lastrico * .« ; **.- eet pn t = 0 . 

1112 IF b=0 RN£> C=0 THEN GO TO 1 


GO TO 2271 

151 


1164 PRiNr “il tuo c 3 p i t a 1 £ 3 )fàtuo 

1113 IF a =0 fiiND b = C THEN GO TO 1 


n t a ora .3 , •* s cap , *' “ 

151 


1170 input r r 0 , 0 ;“Fai un'altra 

1114- IF b=0 RMD 3 = C THEN GG TO 1 


puntata ( “ “ 0 “ “ se lasci.); = = ;> " 

151 


■pnt: GO SUB 106 

1115 IF £ HMD è =L- THEN GG TG 1 


1171 GO SUB 105: IF pn t=0 THEN G 

151 


O SUB 102: PONE £3609,0: BORDER 

1121 L£? V =0. LET va-0. If * =2 T 


7: POME £3693,56; STOP ; GO TO 1 

HEN LET XX si: GO SUE £23 


1172 GO TO 1100 

1122 LET VC = G: IF C=2 THEN LET X 


1500 POKE £3693,56: CLS ; PPJNT 

X =3 : GO SUB 210 

4 

CHR$ 13; “ | PUNTÉGGIO FIGURE: ” , “ 

1123 LET V b = 0 ; IF b=2 THEN LET X 


- 3 figure uguali = +£",“ - 

X =2 ; GO SUB 210 


3 figura = +3“," 

1130 LET V Ift = 0 


- 2 figure ”“$*•” = 42“,“ 

1131 IF va=l HMD b =1 THEN LET PO 


- 2 fig.ug. f 1 = 4£“ , 

= 14-: GO SUB 141: LET VJ/,=i 


“ - 3 figure diverse = - 2 ” 

1132 IF V C =1 HMD b=l THEN LET po 


1510 PRTNT CHP$ 13 : CHR$ 13; ”1 PU 

=14. GO SUB 131: LET V»=VK+1 GO 


NTEGGIO UERMI : “ " - », e te bacai e 

T O 1140 


= -ira per",.." ogni verae" , *■ 

1133 IF 3=1 HMD vb>0 «ND V < 3 THE 


- versi mangiati = " , , “ +1 x ùr; 

N LET PO =6: GO SUB 131: LET VJI* =1 


v erme " .. "0 4 3 x d u e v ermi •* 

1134 IF C =1 BND Vb>0 HMD V >1 THE 


1520 PRINT CHR $ 13: CHR# 13; '* f PU 

M LET po=22: GO SUB 24 1. LEV Vw = 


NTEGGIO TOT RLE : “ . “ = puntata 

V fft +■ 1 


x punti ( 4 / -•• 

1140 Ir vm =2 THEN LET V» =3 


1530 PRINT BH'IGHT l ; RT 21,0; “Pre 

1141 L ET riss-pn t - (V3+Vb + VC.'> 4 D n t 


i C.N ? EP per 4 i ù C 3 ,* 6 " : P R U S È 0 • 

/d +vm#pnt 


GO TO 10 

1142 GO TO liso 


2000 REM DIH ; (5,136) 

1150 IF 3=0 THEN LET rif=pnt 


£006 LET c $ = “ -^gH* r> vji v V3 k 

1151 LET r i s = r i s t *£ 


LEhT K. { 1) = 3. 2 3.L. ET k \ £ 1 = 1 12 L «=■ 

1160 LET cap=cap+ns 


T k i 33 =113 

1161 PhPER 5 : INK 0: LET r $= H ViD 


2010 CLS : PRINT FLPSH 1 : pT X . p 

tO**: IF rii < 0 THEN LET f$="p£TSO 


“LORD ““ SLOT5” “ IN ESECUZIÓNE” ; 

L ET r is = ris*-l 


LORD “SLOT5“ DPTR x f.) . GO TO 2 

1162 POKE 23693.. 40; PRINT RT 17, 


4 24 R E (c* G , M , He Ili n £• ® 


Seguito listato 2. 



È NATO “ELI” 


• •• 




elaboratori elettronici 

Q dÌ MÌSCÌO M.I.& C. 

Sede: via Niottrano, 9 

Uffici: Piazzale Medaglie d’Oro, 9/A - Tel. 071/26511 - 60125 ANCONA 

Cari amici, permettete che mi presenti? 

Mi chiamo: 

“ELI” 

Sebbene piccolo, ho già: 

CUORE: Z80 che batte a 2 o 4 MHz 
MEMORIA: 64 mila parole di 8 bit ad alta 

velocità 

LINGUAGGIO: MBASIC da 12 K su 
memoria non cancellabile 
DIALOGO: con Voi con tastiera + 
tastierino numerico stand. 64 
VIDEO: potete vedermi in TV o su 
monitor fosfori VERDI 
SCRIVO: su qualunque stampante 
STANDARD parallela 

SUONO: sul VS HI-FI anche i classici da spartito e: 

PARLO: anche se non molto bene per ora. 

Questo è già molto per un neonato ma ho altre capacità veramente 

straordinarie: MODESTO NO? 


... ED È “ELISA” 



A differenza dei mie 
consimili - che dopo nati - 
sono cresciuti modesta¬ 
mente nel giro di qualche 
anno - senza mai 
raggiungere livelli superiori: 

“IO EU” 


posso anche subito - se e 
quando VUOI - aumentare 
le mie capacità fino a tra¬ 
sformarmi in un VELOCE - 
COMPLETO - SOFISTICATO 
ELABORATORE come: 

“ELISA” 


Con: 

MOBILE: dal design moder¬ 
nissimo c/monitor orienta¬ 
bile 

DISCHI: uno o due incor¬ 
porati da 5” od 8” 

SINGOLA o DOPPIA DEN¬ 
SITÀ’ • 

SINGOLA O DOPPIA TE¬ 
STA da 1.2 Mbyte 
TASTIERA: tutti i tasti sono 
selezionabili come funzione 
o grafica - ovvero come 
stringa Basic o Dos. 


E - parlando di programmi 
- non c’è da preoccuparsi!!! 
Lo standard BASIC e la 
compatibilità di ELISA con 
il TRS 80 - GENIUS - 
OLIVETTI - COMMODORE 
ecc. permettono l’uso delle 
biblioteche esistenti 

e SCUSATE 
se non è TUTTO!!! 


CERCASI 

RIVENDITORI 

RIVOLGERSI ALLA 
COMPUSYS SAS 
DI ANCONA 
TEL 071/894224 
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Listato 3 - Programma 
per caricare e registrare 
schiera ridotta e grafici 
per SLOTMATCH ri¬ 
dotto per 16 Kbyte. 




Seguito listato 3. 


7,115,63 

158 DOTR 
,191,95 

159 DRTR 
5,255,255 

160 DRTR 
4- , 254- , 252 

161 DRTR 

162 DRTR 
0,0 

163 DRTR 
3,0,0 

164. DRTR 
0,0 

165 DRTR 

166 DRTR 

167 DRTR 
75 

163 DRTR 

169 DHTR 

170 DRTR 

ili. * -» ■—* #» * »■% 

D/CS/i/r 
1 71 L'HIR 
5,255,255 

172 DRTR 
8,24-8,£-3 8 

173 DRTR 

6 

174- DRTR 
95,191 

175 DRTR 

5.255.255 

176 DRTR 
4-, 224-, 192 

177 DRTR 

178 DRTR 

, 0,0 

179 DRTR 

8 , 0,0 

180 DRTR 

201 DRTR 

55.255 

202 DRTR 

1.255.255 

203 DRTR 

0 

204. DRTR 
205 DRTR 


255,191,255,127,191,95 

255.255.255.255.255.25 

255.255.255.255.255.25 

63,31,15,7,1,0,0,0 
171,87,175,255,255,61, 

255,255,255,255,255,13 


252,24-8,24-0,224- , 125,0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0,1 
0,0.0,7,31,123,24-3,234. 
0,0,0.24-5,252,254,95,1 

0.0.0.0.0,16.24 3,2J2 

3,7.15.14,22.26,31,33 
c? *s i -i -y •: *r* ^ •? ■*! -1 :=a 

MW «■ • M • W 9 —• t « I «MB —» » » * V 


12 


191,12/,265,127 


192,224,240,24-3,243,24- 

61.58.53.58.33.26.21.2 

117,205,35,171,37,175, 

255,255,255,255,255,25 

243,243,243,240,240,22 

30.15,15,15,1,0,0,0 
255,255,255,255,25S,31 

255,25S,254,252,243,12 

128,0,0,0,0,0,0,0 

255.143.31.31.31.143.2 

255,241,243,243,248,24 

0,12,110,251,241.96,0, 

0.0,0.0,195,231,68,24 
0,48,113,223,143,6,3,0 


Listato 4 - Programma SLOTMACR, versione 
16 Kbyte di SLOTMACH. 


10 BORDER 5: POK£ 23693,105 : C- 
L5 POKE £3509,253 

68 GO SUB 106: GO SUB 102: £C 
TO 1000 

100 POKE 23693,66: LET 2$ = “$$:£L 
" : GO TO 103 

101 POKE 23693,87: LET Z$=“ ? ?•?*? 
“: GO TO 103 

102 LET po =6. GO SUB 100. LET p 


0=14 

: GO 

SUB 

100 : 

LEI f>O -22 . GO 

SUB 

100 ; 

RETURN 

103 

FOR 

n =6 

TO 9; 

PRINT R r n, p O 

; 2 $: 

BEEP 

. 1, 

15-n : 

NEXT n . RZTUR 


N 

105 POKE 23693,104: PRINT RT 7, 
10;“ ";RT 7.13;“ * ; RETURN 


106 POKE 23693,40: PRINT RT 18. 
0; “ : POP n = 1 TO 191: PRIMT 

“; : NEXT n ; RETURN 

HO POKE 23693, COL: FOR » =8 TO 
3: LET Z=144+fa*4; PRINT RT 6 +» , p 
o;CHR?i (2).;CHR$ (2+1) ;CHR$ V2 + 2> 

;CHR$ (2+3) : BEEF .1,8*2+12: NE.V. 
T m: RETURN 

111 LET 2=1: LET CO 1=70: LET pK 
=1: GO TO 120 

112 LET 2=4; LET CO 1=114; LET P 
K =2 : GO TO .120 

113 LET 2=5; LET CO 1=182. LET O 
K =3 ; GO TO 128 

114 LET Z =2: LET CO 1=70; GO TO 
120 

115 LET Z =3 : LET COL=70 

120 POR n =0 TO 127: POKE U5R “ * 


“+n,X (Z,n+l) : NEXT n: RETURN 

121 POKE 23693,104; PRINT RT 7, 

VO ; “ •*** : GO SUB 125: PRINT RT 7, 

VO ; ,, *V“ *. GO TO 125 

122 POKE 23693,104: PRINT RT 7, 

VO;"V’: GO SUB 125: PRINT RT 7 . v 
O ; “: GO TO 125 

123 POKE 23693,104; PRINT RT 7. 

v o ; “«'V ; RT 6 , V o ; “ “ ; RT 3 , v o ; “ 


t 
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•• ; AT 3 , V O ; ** : RETURN 

124- POKE 23693,104.; PRINT RT 7, 
V o ; " v^’’ ; RT 6,vo; ,! ” ; AT 3 . v o ; " 

AT 9 , ve; •* •• : RETURN 

125 BEEP .1,23: PAUSE 15..RETUR 
N 

131 PRINT PAPER 0; INK 6; FLASH 

1 ; AT 7 ,pO+2; "E"; 50 SUB 114. GO 

SUB 110; PAUSE 10 

132 POR fi) — 0 FO 1: LET y -P C* f fi: : L 
ET Z=l-r«ì*4. POR n = 3 Tu 3: PRINT 
AT 6+H . U ; C $ (2 +n ) : NE.XT n: NEXT 

FOR m=0 TO 3: LET y =p e* +» +£ : LE 
T Z=144+f»; FOR n =0 TO 3: PRINT fi 
T 6+n CHR$ <z+n*4-.t : NEXT n : NE 
XT m 

133 PAUSE 10; LET VOspoU; PRJN 

T PAPER 5 ; AT 7.VO+2; " ": GO SUB 

123: LET' CO 1=70: GO SUB 110 

134 GO SUB 111: PRINT PAPER 5, 
INK 0 ;fiT 7,vo;"v ** : GO SUB 136: 
PAUSE IO: PRINT PAPER 5;AT 7,VO; 
,l “ ; GO SUB 136 

135 PAUSE 10; GO SUB 110; RETUR 
N 

136 PRINT FLASH i;AT 9,PO;"I"; 
FOR n = l TC 3: BEEP .1,12. BEEP , 
05, -12; BEEP .OS,0 ; NEXT n . RETI 
RN 

141 PRINT PAPER 0, INK 6; FLASH 
1.; AT 7, PO +1; "3“ : GO SUB 115. GC* 
SUB 110: PAUSE 10 

142 FOR m =0 TO 1: LET y apc*4»+2: 
LET Z=l+m*4: FOR n=0 TO 3; FRIN 

T AT 6+n,y;c$(Z+n); NEXT n; NEXT 
m: FOR is=3 TO 0 STEP -1: LET u = 
P0+m-2; LET z = i 4 4 + ftì : FOR n=0 TO 
3 : PRINT AT 6 fn , y ; CHR$ *J Z +n *4.> : 
NEXT n ; NEXT ni 

143 PAUSE 10: LET VO=PG-2; PR ». 

T PAPER 5; AT 7,VO-2; ” ** ; GO SUE 

124: LET CO 1=70: 00 SUB 110 

144 GO SUB 111: PRINT PAPER 5, 

INK ftT 7, VO: “ v". GO SUB 146: 
PAUSE 10; PRINT PAPER S; AT ?,VG+ 
i;” ”: GO SUB 146 

145 PAUSE 10: GO SUB 110: RETUR 
N 

146 PRINT FLASH 1 . AT 9,po+3;"g 

: FOR n = 1 TO 3: BEEP .1,12: ©SEF 
.05,-12: BEEP .05,0; NEXT n : RE 


2O0 

GO SUB 131 

IF XX=0 

THEN 

Si ip 

1G3: HO TO 

204 


201 

IF p k. = x x T 

HEN GO TG 

203 

202 

GO SUB K iX 

X ) 


o o 

GO SUB 11© 



204 

RETURN 



2 10 

LET v =INT 

! AND * 5) 


211 

IF XX =1 AND V > 1 THE! 

'l LET 


al: LET V O = ì 0 : 00 SUB 122 : 

2:16 


212 1F xx -3 AND V < 3 TH£M LET v* v 
= 1: LET V O =20 ; GO SUB 121. OD TO 

216 

213 IF XX 02 THEN GO TO 216 

214 IF V < 3 THEN LET Vb=i: LET V 
0=12; GO SUB 121 

215 IF V >1 THEN LET V L = V b-rl LE 
T VO =18 : GO SUB 122 

216 RETURN 

1000 POKE 23693.40: PRINT AT 17, 
0 ; “La Di rez 2 on è e? e t cs£ j .“ o ■' 
ti elargisce un bonus j j s 1 
00 perche ' tu tenti ta Dea bende? 
tal-*: INPUT AT 0 , 0 ; "Fai la tua p 
untata: = = > ” ; pn t 

1010 GO SUB 106; LET CaP=200 

1100 LET p K =0 ; LET fa £ =0 

1101 LET a =INT (AND*4) : LET PO=6 
; LET XX = a ; GO SUB 200 

1102 LET b = INT (RND*4) ; LET PC< =1 
4: LET XX=b: GO SUB 200 

1103 LET C =INT (RNDS4) : LET p 0=2 
2: LET XX =C: GO SUB 200 

1110 IF a =b AND a =C THEN GO TO 1 

150 

1111 IF a =0 AND (b =0 OR C =0.1 THE 
N GO TO 1151 

1112 IF b=0 AND C=0 THEN GO TO 1 

151 

1113 IF a=0 AND b = C THEN GO TO 1 
151 

1114 IF b=0 AND a = C THEN GO TO 5, 
151 

1115 IF c=0 AND a =b THEN GO TO 1 
151 

1121 LET v = 0: LET Va=0: IF a=2 T 
HEN LET XX al. GO SUB 210 

1122 LET v C =0 : IF C=2 THEN LET X 
X = 3 ; GO SUB 210 
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b=2 THEN LET * 


b = 1 THEN 
LET Via al 
b = 1 THEN LET 
LET v, r o =vrn +1 : 


LET PO 


PO 

GO 


1123 LET v/ b = 0 : IF 
X=2 : GO SUB 210 

1130 LET Vtt=0 

1131 IF v a =1 AND 
=14: GO SUB 141: 

1132 IF VC=1 AND 
=14: GO SUB 131: 

TO 1140 

1133 IF 3=1 AND V b > 0 AND V i3 THE 
N LET PO =6 : GO SUB 131: LET VUs =1 

1134 IF c=l AND V b > 0 AND vM THE 
N LET PO =22: GO SUB 141: LET VB* = 

V Jì) fi 

1140 IF VI» =2 THEN LET v'Ki =3 

1141 let '-is = -pnt - tva+vb+vo tpnt 
/2 +v i» tpn t 
^142 GO TO 1160 

IF a=0 THEN LET fiS=pnt 
LET ris a ris +pn t *2 
LET Cap=C3P+ri5 

PAPER 5: INK 0: LET r$ = "V.ir 
Ir r i s <o T HEN LET r$=”pers© 
“: LET risaris* -1 

1162 POKE 23693,40: PRINT AT 17. 
0; “Mai puntato", M $ ";pnt/‘ e 

r $, ‘ $ “ ; r i s 

1163 IF cap<=0 THEN PRINT "bai f 
ischi a lo t 
u l lastrico 
TO 1171 

1164 PRINT "il tuo capit a le 
nta ora a '■, ” $> cap,” " 

1170 INPUT AT 0,0;“Fai un'altra 

^untata ( M “ 0’• •• se lasci ) : = = > 

;pnt ; GO SUB 106 

1171 GO SUB 105: JF pnt=0 THEN G 
O SUB 192: POKE 23609,0: BORDE.R 
7: POKE 23693,56: STOP ; GO TO 1 

1172 GO TO 1190 


1150 

1151 
1160 
1161 
X O " : 


troppo","e sei finito s 

« i •• • 


t 


LET pn t =0 


GO 

aj»K? c< 


i 5 




LE' 


K 


; DIM 
i 2.1 = 2 li 


K f 3 > 
: LE 


2000 REM DIN X 
2005 LET C$ = ‘* 

LET Ktl;-111 

2 0 10 * C L 5 * f PR JNT RT ? , 2 ; FL A 5 H 1 
; w LORDINO DATA e CODE ; LOAD *'S 
LOTS" DATA X C 3 : LOAD ” SLOTG "CODE 
: GO TO 1 
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Listato 6 - Programma 
GRAFCOMP. 



Ni 'tjHHpICHE 


1 >REM 

i$) G.M.MELL INfi 

2 LET v a r =0 : INPUT “Se vuoi c 
omporre uno ""screen"" rispond 

i " “3“ **, a i t r i m enti *• » ?33fra3a “ “ : “ ; C 


TF r ■* ; i 


line c$ 
THE n no 


JL Hi ffl U v w 


✓ e dicolonne (Rni 


• • «•/ • i . v * 

ì V i ì • w 1 i i jj H 

della c 


e (fiD't _ 

omposì zione,e le coordinate (RT 
£33 . dell'angolo super .si n i s t r 
o di 5 i a »? p a ; “,i c H R $ j. 3 ,ì r r 

; r r , " c c “; c c .. xx M “ ; xx . “ 

yy SBB yy 

5 DIH a (rr/cc#8) : LET a a =1 
G O S L> E? b5l3 

16? INPUT "Uuoi usare il modo b 
inari o { " "B" " ) o esade cim a le ( M,, S 

> 7";CHF* 13;“ b^e g<CTB '* • i t v. T' 

m $ •* *--• vì- 

26? IF a»$ = “e“ THEN GO TO 100 

30 IF rn $ = “ b " THEN GD TO OOO 

4.0 GD T Q 10 _ 

100 rem i3ada=ftaisEnp 

110 CLS INPUT "Immetti il sim 
bolo grafico e y liS bytes sipras 

si in esadecima le : (es . : q 3 c 4-2 
31 30 3 f SI 4-1 3e) " ; CHR$’ 13 ; “ £ 

Si **; LINE S$ * 

120 GO SUB 4.0© 

130 FOR S =3 TO 24. STEP 3 
14-0 LET xaCODE S$C--3 -4B: IF S $ ( 
S)>“9* THEN LET x=X-39 
150 LET y=CODE S$(S+1) -46: IF S 
$ <S+1.) > “9“ THEN LET y =<4-39 
160 POKE USR S$(l) +S/S-l,X*lB+ii 
170 PRINT INK 2;RT 2 +s/3 .5 ; “1 “; 
GO SUB 300: LET X =y : GO* SUB 30 

0 

180 NEXT S 
120 GO T O 500 

200 REM IdMafclrSftl 

210 CLS INPUT “Immetti il sim 
bolo grafico e q l i8 by t e s espres 
si in binario: CHRJ 13.. “ ies . : 

g 00111100 00100010 . . . ; “ , CHR $ 
l5;“ SS LINE s$ 

220 GO SUB 4.00; FOR S =3 TO 66 S 
TEP 9: LET y=0 

230 FOR K =0 TO 7 STEP 4- : LET Z = 
3: LET x=y: LET u=0 
240 FOR b =0 TO 3 

250 TF S$ <S+k+b> = "1" THEN LET u 

=y +z 

2S0 LET Z =Z/£: NEXT b: NEXT k 
270 POKE USP S > ( 1 !» + (S +6 ) /9 - 1 , x * 
15 + y 

2S0 PRINT INK 2;RT (s+6)/9.5: 
“1 “; : GO SUB 300: LET x =y : GO*6U 
B 300 

290 NEXT s: GO TO 50© 

300 REM 
310 LET C-8: POR n=l TO 4 
320 LET X =X-c : IF x >=0 THEN PRI 
NT INVERSE l.“0“;■ GO TO 340 
330 LET xsx+c: PRINT “ 

340 LET c = C 2 : NEXT n: RETURN 
400 REM fe*tfslSI=Ii=Mririlrlgfcrrf i 
410 INK ~ ^iNTPtTs , 'T -1 ” 
,RT AT 5. 


CflR'RTT . INGRANDITO 



; RT 6,20/^1 f “ ; RT 7 .. 20, “ 


420 FOR n=3 TO IO: PRINT RT n.E- 


.i rt / ♦ • ,i wk *** .i 

430 RETURN 
500 REM 
SIO PRINT RT 


3 ! t 


1 1 U. I 


MPR CRRiGR 


n: INK © 


ì 


0..5.; “carature «ira 

F • : " } .s $ ( 1 ì ; .* “RT 6,21. CH 

R $ (CODE S $ +47 .ì 
523 TE *.„• ar=I THEN GO TO 050 
52o INPUT R ; 0.,©. " L'nwe t ti “ “f5 

“ “ per t e r m i n a r è . “ “13" “ per me 

mori zzar e ia riga.,”.,. g"' per 5 

RUE graphics o schiera/’; " u, ’g"“ 

P €■ r r - 1 o mp are la co «p .prof . /',, 

“ Per cambi are modo t be ) . 

Tf “ “ per istruzi oni . “ . ’ f3girèfe per 
continuare: “ , 

C "3 ~ ~ * 

” >- ! • • >- 1 7* — v. 

9 9 2 9 

*i 

w* v.* .1 


l % « % ft % 


TF O S = ’ ’ Ut ’ 

532 IF 3 $ = ' r C- ' 

533 IF a*="p" 

535 IF 3 $ = ’ i 

530 TF a$=”r“ 


LINE a$ 
THFN Gl = • TQ 

T‘HEN GO TO 6.00 
THEN GO TO 56© 
THEN GO TO 700 
THEN GO TO IDI© 

—;-;fn r.n TO O 


. .GRRPH. /5 


560 REM ___ 

565 INPUT “Immetti “ “H’’ 
l'E g r a p h ì c s y p S 

SRUE schiera: 1 * ” “ 


per SR 


per 
LINE t$ 
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570 INPUT “I mme tti il nome per 

" " FQI JF" " • " " twiw •• • . t 

575 W IF tS=“S“ THEN GO TO 52© 

580 CLS : PRINT RT 2.0; FLASH 1 

: "SR'JE . :a$; . CODE USA ““a"“ 

• ' :RT 4.5; “in esecuzione”: FLASH 
©; 5RVÈ 3 $ CODE USR “3“.163 CLS 

PRINT RT 2,0;“ 5RUE * OK“ 

585 FLASH 1: PRINT RT 5,6.; "PEUI 

ND THE_T APE FOR UERIFV": FLASH 0 
UERIFV a £ CODE • CLS : PRINT F: 

T 2,0.;“ UERIFY Oh “ : GO TO 520 

tr 90 CLS PRINT RT 2.0; FLR5H X 

.. “SRUE .; a 56.: . DATA 3 < « RT 4 

, 3 ; “in è S e r ui j np,e " : FLASH O • FA' » 
È a $ DATA 30; CLS ; PRINT RT 2 .i 
?. “ SRUF OK“ 

595 FLHS'ri 1 PRINT fi T 5.3;"REUI 

ND THE TRPE ^OP UERIFV*-' FLRSH 0 
UER JFY a è DATA a O : CLS PRIN 

1 RT 2.O.“ UCRIFY OH 1 ? GÒ TO 5 

2 C 

~ 6 O 0 REM _ _ 

610 POR d =1 TO C C *8: LET a (aa ,d 

- =PEEK (USR "a’Nd-1; NEXT d 
620 LET sa =53 vi; GO F, n- F.F.0 * CL 
S _ ^ ^GO^TO 520 

“ a “ ^ B IN “© • '^ NEXT,*d .. Jj^ETURN U5R 

7 10 CLS F OR n” T O r W 

23 FOw d.;0 70 ccsS-i. POKE USR 
" Y +d , ni <Ti +1, .-i 4 i-jr XT d 

7 3 O : ET f 4 = rr C D E F G HIJKL MS l*i OPOR5 
TU” 

740 PRINT RT :-;x+n .yy; r $ ( TO •: c :« 
N EXT r; 

750 TMPUT RT 0.0 : “T^m. ** *g“ “ p 

e • S_*V. 'E SOR * , 25 e . *; 3 f 

» p e * i v* 111 » : l i “ a $ 

V60 IF a $ = *'£.“ THEN GO' TO SO© 

765 IF 3$=“V“ THEN GO TO 90O 
770 GO S UB 650 :_CLS : GO TO 520 

SCO !;SH a35£rSHWm-g; 

SIO INPLiT RT 0 , 0 ; “Immetti nome 
per ““5RUE SCREEN$““:“;CHR$ 13;“ 
'Uàì 


! 0 SR'JE a? SCREEN$ 


SHvc 5 $ S 


Ria vvolgi il n as t r o 
(LOAD) è premi ENTER 


~pffn 4 
830 JNPLfT 
Per *. > 5 r i fy 

LINE a$. LOhD a* SCREENJ 
340 INPUT “Se TRPE LOAD.ERRC'R p 
u c* i r i P e ter e £ . t a m p 3 e 5-3 v e . P r e 
mi ENTER LINE a * 

td s 0 gO T O 520 _ 

900 REM 

910 ll'ì a 3 a -dà: LE r var~l 
920 input Ri 0 , 0 ;"immetti il nu 
mero delia riga de iquadro c he v u 
oi modi fi care :JB “;aa 

930 GO in p 0 

950 PROSE OC LET car=iCODE S $ ( 
i:« -9?;< ^s 

960 POR d=l TO 8: LET a(aa.car+ 
d)SPEEK (USR "a"+car-l+d): NEXT 

M 


7• 7T i*T» • ? • • CT . 4 • n •• «*T« • 7 "f 

'd f %..* L i— 1 h •*? — u •? a . i1 •* o ? — ti* •_* «_ « ) 

O ~ T 0 0 

1000 REM 

1001 INPUT "Immetti se vuo 

i istruzioni, a i tridenti 

”.;CHR$ 13.;“ BQS LINE 3 $ 

1010 CLS : IF a 4 < >“ i " THEN GO TO 
1 

1020 PRINT “Il programma consent 
e di:"CHR $ 13;“ - immettere c a r 

atteri grafici in binario c esa 
decimale, e memorizzarli abbinai 
i ad una Lettera (a-";CHR$ 6, OUE 
R 1 ; “ ; u J ** 

1030 PRINT “ - comporre ““screen 

s““ grafici di formato a piacere 
(max 22 righe x 21 colonne), imm 
et tendo i sin-goti caratteri q r a 
fici che co»- pongono ogni riha 
e stampandoli infine come unica 
videata" 

1040 PRINT “ - memorizzare ogni 

singola rigai n apposita tabella 1 ’ 
;CHR$ 13;“ - stampare la composi 

zione gra -fi ca“;CHR$ 13;“ - modi 

ficare singoli caratteri della c 
omposizioneCHR$ 13;" - eseguir 

e 5AUE SCREEN $ e UERI-FY della C 
omposizione (il SfiUE viene effe 
ttuato 2 volte)" 

1050 PRINT “ - eseguire 5RUE e U 

ERIFY della area di memoria ““us 


-I 


t 


32 - 1984 * Bit 



















































«/ 


Seguito listato 6. 

er graphics. ;CHR* 13; “ - esegu 

ire S.RUE e UERIFY della tabella 
(schiera ““a"“) “ 

1060 PRINT C-HR$ 13.;CHR* 13; "Per 
ottenere uns composizione qra f 
e' fi chiesta l # i«misàio-ne d 
i : ; CHR $ 13.;'* - numero delle rie? 

he e delle colonne (= dimensioni 
del quadro risultante finale!»' 
1070 PRINT *' - coordinate (PRINT 

RT) per la centratura oeside rat 
a della stampo del q u 3 d i u .. indie 
and or? e l'an-golo superiore sinis 
tro" 

1080 PRINT CHR * 13.; CHR * 13.;CHR$ 

13.; "Regole per la composizione g 
rafics; ";CHP$ 13;“ - immaginare 

il quadro risultante come una ma 
trice avente le righe come ordì 
nata <1-".;CHR$ 8; OUER 1.; “ : £2 a 
Ito->basso) e le lettere “"user 
graphics' 4 ’ 1 come ascissa (a-”.; CHR 
* 8.; OUER l; *’ : u sinistra->destra 
) .; esempio di quadro 3x7: ” 

1090 PRINT CHR* 13; ” a b C d 

e f g 11 ; CHR* 13.;“ - 

-”.;CHR* 13;“ 1 » tt tt“ 

..'CHR* 13;“ 9 » » tt CHR* 1 

3: “ 3 U tt U tt U tt tt" 

1100 PRINT CHR $ 13;“ - per ogni 

riga (nell-'ordine 1-“;CHR* 8; OU 
ER 1;“: 21) occorre creare tutti 
i simboli grafici relativi alle 
lettereinteressate e solo allora 
memo- rizzare la riga. Le case 
Ile vuote possono essere iqnorat 
e. Nell'esempio creare ““c e f ” 
“ e memo-rizzare la riga, poi “ ‘ 


Seguito listato 6. 

a c d e““ e.memorizzare la se con 6 
a riga., quindi ““a b c d e f g“* 
e memorizza-re la terza riga.” 
1110 PRINT “ - in ogni momento.. 

al comp le t a -»en t o di una riga., e 
dopo a ve ria memorizzata., e 4 poss 
ibile ottenere la stampa della c 
omposizione risultante e p rose?u 
ire poi con la creazione delle r 
ighe succes-si ve” 

1120 PRINT CHR* 13;CHR* 13,CHR* 
13; “In caso di ““breaK““ incider: 
ta le ^ dovuto a scorrette immisi - 
oni o errori di 5RUE /UER IFY.. s i 
può' riprendere correttamente t 
'esecuzione eseguendo un ””GO TD 
520.“' . CHR* 13; CHR* 13., SS No 
n usare ””RUN“”: ciò' compor -ter 
ebbe la perdita di quanto disfai 
tof MB 

1125 PRINT CHR* 13 

1130 GO TD 1001 

74.01 REH © G . M , MELLTNh 0 



Listato 7- COPY screen 
composizione ottenuta 
con GRAFCOMP. 
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Scrìve, suona, gioca, entusiasma 

Gaetano Marano 




f H - PROGRAMMI 

P&ZX 8 I 


SCONTO 20% AGLI ABBONATI 
FINO AL 28-2-’84 


E ZX 80 CON NUOVA ROM + HARDWARE 

Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della 
Sinclair è il computer più venduto nel mondo. 

Oggi, sempre con una modestissima spesa, si può imparare a 
sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l'unico computer in grado di conferire 
effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un’altra novità di quest’opera, preziosa anche per chi 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell’apparecchio, 
per ricavarne altre, speciali funzioni. 

136 pagine. Lire 12.000 Codice 520 D _ _ 

M'i * GRUPPO 

Per ordinare il volume , EDITORIALE 

utilizzare l’apposito tagliando IÈÌìB! JACKSON 

inserito in fondo alla rivista 


I H ^PROGRAMMI 

%ZX 8 I 

. F 31 CON NUOVA ROM 

+HARDWARE 
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Regressione e alta 
risoluzione grafica 



Questo programma è solo una parte di un altro programma più vasto , scritto 
per VIC 20 e Apple ///, per il calcolo di vari test statistici. 


di M. Mauro 
e F. Passatello 

L a versione che qui presentiamo gira su VIC 
con espansione da 16 Kbyte e risolve il pro¬ 
blema della regressione lineare: in parole più 
semplici traccia, attraverso una nuvola di punti, 
la retta che meglio si adatta ad essi. In pratica 
questo comporta il calcolo dell'equazione della 
retta che rende minima la somma dei quadrati 
delle distanze dei punti da essa (metodo dei 
minimi quadrati). Questo problema costituisce 
una occasione ideale per spendere qualche pa¬ 
rola su alcuni espedienti di programmazione, 
che rendono piacevole l'uso del VIC. 

Come si usa 

Dopo aver caricato il programma Regressione 
se si adopera il registratore è necessario lasciare 
abbassato il tasto PLAY, altrimenti non sarà possi¬ 
bile ottenere una corretta esecuzione. Soddisfatti 
i preliminari, va dato il comando RUN, che provo¬ 
ca l'apparizione sullo schermo del messaggio AT¬ 
TENDERE PREGO. L'intervallo sarà di circa 15 se¬ 
condi per il trasferimento del set dei caratteri 
standard, più il tempo necessario per il carica¬ 
mento del programma BIT. 

Quest'ultimo tempo varia, ovviamente, a se¬ 
conda che si adoperi il nastro (2 minuti) o il di¬ 
schetto ( 15 secondi ). Al termine della fase di atte¬ 
sa saranno visualizzati i nomi degli autori e poco 
dopo, la prima opzione che consente di ottenere 
l'output su video o su stampante. Se quest'ultima 
è l'opzione selezionata, sarà richiesto il numero 
delle cifre intere e di quelle decimali con cui si 
desidera vengano stampati i risultati. Se, invece, 
l'emissione avverrà sullo schermo, il numero delle 
cifre sarà standard. Altra differenza tra output su 
stampante e quello su video è determinata dal 
fatto che il prospetto stampato conterrà anche i 
dati in input, mentre i risultati su video saranno 
costituiti da una serie di videate, cui si accede 
pigiando un tasto qualunque. I dati in ingresso 
possono essere immessi da tastiera o, ancora, 
essere elaborati come numeri random. In ambe¬ 
due i casi l'utente dovrà specificare su quante 
coppie di dati intende applicare il test. Se si è 
scelto di adoperare dei numeri casuali il passo 
successivo sarà l'output dei risultati, altrimenti si 
entrerà in una routine di immissione dati che fun¬ 
ziona nel seguente modo: saranno richiesti tutti i 
dati della prima variabile e, successivamente, 
quelli della seconda (max. 200 coppie). 

Possono essere immessi, al massimo, 8 numeri 
per volta costituiti da non più di 12 cifre, compre¬ 
so il punto decimale. Terminato l'input di ogni 


gruppo di numeri, c'è la possibilità di effettuare 
delle correzioni, pigiando il tasto S. In alto a sini¬ 
stra, in corrispondenza del primo numero, appare 
una freccia che può essere manovrata dall'alto 
verso il basso (premendo il tasto CRSR) o vicever¬ 
sa (SHIFT CRSR), finché non ci si posizioni sul nu¬ 
mero che si desidera modificare. La correzione si 
effettua premendo il tasto M e battendo il nuovo 
numero. 

Terminate tutte le modifiche si procede pigian¬ 
do il tasto F. Appena completata l'immissione il 
programma provvede al calcolo della media e 
della devianza dei due gruppi, della covarianza 
e del coefficiente di correlazione, dei coefficienti 
A e B, della retta di regressione, della devianza, 
varianza e deviazione standard campionaria 
dalla regressione e, infine, della deviazione stan¬ 
dard campionaria di B, del T TEST e dei gradi di 
libertà. Il passo successivo consiste nella rappre¬ 
sentazione grafica cui, tuttavia, si può anche ri¬ 
nunciare. Per ottenere il diagramma di dispersio¬ 
ne bisogna attribuire un nome all'ascissa e all'or¬ 
dinata. Subito dopo, lo schermo assume il colore 
azzurro dello sfondo e dopo il veloce disegno 
delle coordinate visualizza il lento avanzare della 
retta di regressione. Il diagramma è completato 
dall'apparizione dei punti di dispersione e dai 
nomi dell'asse Y e dell'asse X. Le ultime due righe 
contengono i limiti dell'ascissa e dell'ordinata, 
generati come valori di default dall'algoritmo 
contenuto nel programma in base ai dati in in¬ 
put. Se uno di questi limiti supera, in valore assolu¬ 
to, il numero 9999.99, allora sarà sostituito dal 
messaggio OVER LIM. Per uscire dallo schermo 
grafico è sufficiente pigiare un tasto qualunque. 
Fatto ciò si può ottenere una rappresentazione 
grafica più compatta scegliendo nuovi limiti per i 
due assi, in modo da escludere zone di scarso 
interesse. 

L'ultima opzione consente di porre termine al¬ 
l'esecuzione del programma o di ripetere il test, 
con l'immissione di nuovi dati. 

La grafica 

L'output grafico costituisce una caratteristica 
interessante di questo programma. La finestra 
grafica coincide con l'intero schermo del VIC 
(22x23 caratteri) e non è persa la possibilità di 
inserire commenti, posti in qualsiasi posizione del 
video. Personalmente, abbiamo scelto di limitare 
i commenti alle zone laterale sinistra e inferiore 
del grafico, ma in teoria non vi è alcun limite, 
potendo i caratteri essere anche sovrapposti al 
grafico. Come funziona? Tutti coloro che usano il 
VIC sanno che è possibile trasferire la mappa dei 
caratteri dalla ROM alla RAM, potendosi così ride- 
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regressione: 


VERSIONE CRSSETTfì 


10 PRI NT " UMISRTTENDERE PREGO " : PRI NT " T ; 

20 PZ=5120:RU=PZ:PRINT n MMGMGr 

30 FORI=0TO2:P0KE7168+1,0:NEXT:FORK=0TO1023:P0KEPU+1 024+K ,PEEK<34816+K>:NEXT 
40 PRINT"P0KE43,1 : PQKE44 ; 28 : P0KE45 ,3 :P0KE46,28 ; P0KE47 ,3 : P0KE48,28 :P0KE49 ,1 :P0KE5 


0; 2 : CLR : NEW" 

50 PRINT" MILORD"CHR$<34 >"BIT"CHRI<34 > 


60 PRINT": 


n ii M ii ii i 


RIJH " 


70 PRINT": IIII I I ITI I I I rr m " ; POKE198,3 : P0KE631^13* P0KE632,13 : P0KE633,13: END 


MODIFICHE PER 
FLOPPY DISK 


50 PRINT" MILORD"CHRIC 34)"BIT"CHR$ < 34 >",8" 


60 PRINT"! 


ii ii *i ' 


RUN" 


70 PR I NT " .TniTirniriIir : POKE 198,3 : P0KE631,13: P0KE632,13: P0KE633,13 : END 


Figura 1 - Prospetto dei 
simboli grafici. 


Listato 1 - Il programma 
Regressione. 


finire ogni carattere per produrre opportuni di¬ 
segni o diagrammi. In genere basta far corrispon¬ 
dere ad ogni carattere così ridefinito una ed una 
sola locazione della mappa video. In tal modo, 
però, essendo 256 i caratteri ASCII (normal + re¬ 
verse), si può usufruire di una grafica di soli 
256x8x8 = 16384 pixel. Se si adopera l'opzione per 
la definizione di caratteri 8x16, bisogna però ridur¬ 
ne anche il numero, per non superare il massimo 
numero di punti memorizzabili nella mappa del 
video (506 locazioni video x8 byte x 8 bit). Il nostro 
programma invece utilizza un altro metodo: non 
vi è corrispondenza biunivoca tra mappa carat¬ 
teri e mappa video, in quanto è facile vedere 
come in tutti i grafici la maggior parte dello scher¬ 
mo è occupata dal carattere bianco. Il program¬ 
ma utilizza così solo 128 caratteri per la grafica 
(sono molti!), in quanto il campo reverse è riempi¬ 
to con la mappa dei caratteri minuscoli e normal, 
utilizzati per i commenti al video. Il corpo del 
programma di grafica è contenuto nelle routine 
2140-2190 e 2200-2220. Il numero di pixel ottenibi¬ 
le è 32384 (22x23 caratteri). 

Perchè due programmi 

Quando si fa girare il programma, nella fase 
iniziale bisogna attendere un tempo variabile da 
circa 30 secondi quando si usa il floppy disk a 
circa 2 minuti e 20 secondi, se si è equipaggiati di 
solo cassette-recorder. Sullo schermo appare un 


laconico "attendere prego". In realtà, in quei mo¬ 
menti avvengono cose molto importanti. Adope¬ 
rando l'espansione da 16 Kbyte (lo stesso anche 
per la 8 Kbyte), la mappa caratteri deve essere 
trasferita all'inizio dell'area di memoria riservata 
al programma, subito dopo la mappa video. 

Questo trasferimento non può avvenire all'in¬ 
terno di un programma, perchè dovendosi can¬ 
cellare tale area per pulire lo schermo, verrebbe 
ad essere cancellato anche parte del program¬ 
ma in esecuzione. Inoltre è necessario spostare 
tutti i puntatori di inizio programma, variabili e 
variabili indicate. Quando si adopera una espan¬ 
sione 3 Kbyte o si è nella configurazione standard, 
la mappa va spostata alla fine della memoria e 
quindi deve essere spostato in basso il puntatore 
di fine area programma e di inizio area stringhe 
(le stringhe sono memorizzate a scendere). Nel 
nostro caso, il tutto è ottenuto con un programma 
introduttivo (Regressione), talmente corto che 
non fuoriesce dalla zona di memoria 4609-5120, il 
quale memorizza i caratteri minuscoli in campo 
diretto nella zona del campo reverse (da 6148 in 
poi, per 1 Kbyte), mentre l'azzeramento dei carat¬ 
teri è lasciato al programma successivo (BIT), nel¬ 
le istruzioni alle righe 660-670. Il primo program¬ 
ma scrive sullo schermo dei comandi invisibili (in 
bianco) e termina, forzato con il solito espediente 
(Bit n° 39, pag. 118) ad eseguire per tre volte 
l'istruzione RETURN. L'esecuzione che scatta dopo 
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Listato 2 - Il programma 
BIT. 



il comando END comporta lo spostamento dei 
puntatori, fuori programma, quindi il caricamen¬ 
to del programma successivo (BIT) e la sua ese¬ 
cuzione. Attenti al numero esatto di simboli grafi¬ 
ci e a mantenere pigiato il tasto PLAY, perchè 
principalmente da questi accorgimenti dipende 
l'intero automatismo. Se percuriosità volete osser¬ 
vate l'espediente, cancellate la linea 10 del pro¬ 
gramma Regressione e le varie fasi saranno visua¬ 
lizzate sullo schermo. 

Attenzione! Si tratta di due programmi separati, di 
cui il secondo non può essere eseguito se prima 
non si è fatto girare almeno una volta il program¬ 
ma introduttivo. 

Questi programmi devono essere registrati in 
successione, se posti su cassetta, in quanto Re¬ 
gressione richiama automaticamente BIT e lo 
manda in esecuzione. Se si usa il floppy disk, ba¬ 
sta apportare le opportune modifiche, così come 
si vede nel listato. 

Routine 

110-2201 numeri sono restituiti secondo il forma¬ 
to desiderato, in base alle cifre intere e decimali 
richieste. 

300-360/370-400 Necessarie per il calcolo auto¬ 
matico dei limiti del diagramma. 

470-490 Rende più agevole il posizionamento dei 
messaggi sullo schermo. Con questa routine si 
sono volute imitare le funzioni delle istruzioni 


le scrivere un messaggio nel punto desiderato 
(vedi righe 730-740). 

500-520 Consentono la preparazione dello scher¬ 
mo prima di ciascuna videata. 

530-570 Visualizzano, sull'ultima riga del video, il 
messaggio SCEGLI UN NUMERO. Tale messaggio 
lampeggia finché non sia stato scelto un numero 
compreso tra quelli indicati. 

680-1200 Le parti più interessanti di questa routi¬ 
ne riguardano l'introduzione (linee 880-950) e la 
modifica (960-1200) dei dati. L'input avviene per 
gruppi di otto numeri. 

Quando la variabile E è uguale a 9 o termina 
l'immissione, si passa alla fase della modifica. Da 
notare come sia stato necessario discriminare il 
primo dato immesso rispetto ai successivi sette, in 
quanto il VIC considera ciò che viene scritto in 
quel caso come un tutt'uno con quanto è pre¬ 
sente nella riga precedente del video. Sono nel¬ 
l'input del primo dato si è dovuto, perciò, ricorrere 
ad un artificio, come appare nella riga 930. Molto 
funzionale si dimostra il sistema adottato per la 
modifica dei dati. Infatti è sufficiente spostare 
una freccia posizionata alla sinistra dei numeri. 
Affinchè il programma possa sempre conoscere 
la posizione in cui si trova la freccia è stato utiliz¬ 
zato il contatore FF, che è incrementato o decre- 
mentato a seconda che la freccia scenda o sal¬ 
ga. Una volta richiesta la modifica, appare un 
asterisco, mentre il numero da modificare scom¬ 


VTAB-HTAB dell'Apple Il e VPOS e HPOS dell'Apple 
III. Le variabili RG e CL individuano, rispettivamen¬ 
te, la riga e la colonna da cui si vuole far partire la 
visualizzazione di un messaggio. I due valori costi¬ 
tuiscono l'input della routine, il cui output è deter¬ 
minato dai valori che vanno inseriti nelle locazio¬ 
ni 209 e 210, contenenti l'indirizzo della mappa 
dello schermo corrispondente alla posizione del 
cursore. 

Terminata l'esecuzione della routine, è possibi¬ 


pare(riga 1180) in seguito a! PRINT di una serie di 
20 cursori a destra e 14 DEL. L'operazione di modi¬ 
fica può essere effettuata quante volte si vuole. 
Una curiosità relativa sempre alla linea 1180: scri¬ 
vete questa riga così come si trova. 

Chiedetene, poi il LIST sullo schermo. È inutile 
che vi affanniate a ribatterla, nel timore di non 
avere digitato bene. ! caratteri grafici che non 
compaiono sul video sono, invece, ben visibili nel 
listato della stampante. 


il • • 
ì • 


I T 

0*80 : C$ e " 


10 PRINT"i 

20 PRINT"3" ; :WH«PEEK<210)*236+PEEK<209> 

30 DIMX<200,2) 

40 GOSUB500 : PRI NT 1 "mmmnmREQRESSl ONE’" : PRINT 1 "MWMÌMPR0GRAMMA DI" 
50 PRI NT 1 nutrii CHELE MAURO" = PRINT 1 "«FAUSTO PRSSRRIELL0" 

60 GOSUB660 : GOTO1210 
70 REM RTTESR 

80 PRINT"XKDWBMFREMI UN STTRST0" : PRINT 1 "«SUPER CONTINUARE" 

90 GETfì$ : IFA$=""THEN90 
100 PRINT“3" : RETURN 
110 REM FORMATO 
120 IC«CI:DC*CD 

130 BS*SGN<B) : BB=ABS<B) : BI C INT<BB) : BF=BB-BI :BI$=STR*<BI) 

140 BF$=STR$ <1NT<BF*10TCD>)=BF$=RIGHT$ <BF$,LEN <BF$ >-1) 

150 XW*CD-LEN<BF$> : IFXW*0THEN170 
160 F0RZK=1T0XW:BF$="0"+BF$:NEXT 
170 BL=LEN(BI$):D$=" ":IFBS«-1THEND$="-" 

180 IFCI<BLTHENCI=BL 

190 T$-". " : IFBF<lE-6THENT$ a " " : BF$ S LEFT$ < C$ .■ CD > 

200 IFCD*0THENT$="":BF$="" 

210 B$*LEFT$<C$^CI+1-BL)+D$+RIGHT$<BI$>BL-1)+T$+BF$ 

220 CI»IC * CD«DC•RETURN 
230 REM 

240 GOSUB500: PRINT"WMMPfiRAMETRI STAMPR" 

250 PR I NT " mSX*C IFRE INTERE****** " : PR I NT " H< MAX .10)"; 

260 PRINTTAB(15);""; : INPUTCI : IFCI<0ORCI>10THENPRINT"T; :GOTG260 
270 PR I NT " t®WD®IC I FRE DECI MALI **#*" : PRINT "«(MAX. 10) "; 

280 PRINTTAB<15);"";:INPUTCD: IFCD<0ORCD>10THENPRINT"T; :GOTO280 
290 RETURN 


t 
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300 REM MINIMO 

310 I=-10 K=0:IFZ9<0THENZ9*-Z9 : K=1 

320 IFZ9>10 TITHEN1*1+1=GOTO320 

330 X9*10t<I-l)-'HT«2 

340 IFZ9>X9*HTTHENHT*HT+1-GOTO340 

350 Z9*X9#CHT-1+K> : IFKTHENZ9«-Z9 

360 RETURN 

370 REM RfìNGE 

380 Z6 S Z9 

390 Z8=Z7-Z6 =IFZ8>.2#Z3THENZ9*Z8 : GOSUB300 Z6=Z6+Z9:GOTO390 

400 Z7*Z6=RETURN 

410 REM VIDEO/STAMPA 

420 GOSUB500-PRINT ,l ìaisaO^^ I RISULTATI" =PRINT"IWSU VIDEO 0 STRMPRNTE" 

430 PRINT >l -DRMMÌÌÌIdfV/S M 

440 GETELS'IFEL$="V"THENCI=9 : CD=9 : RETURN 

450 IFEL$="S"THENGOSUB230■RETURN 

460 GOTO440 

470 REM CURSORE 

480 R=UH+(RG-1)*22+CL-l : RH=INT(R/256) : CH=R-RH*256 ; POKE210,RH ; POKE209,CH 
490 RETURN 

500 REM FORMRTO VIDEO 

510 PRINT"3" : RG=3 = CL=1 ; GOSUB470 : PRINTWH* : RG=21 = CL=1 = GOSUB470 ■ PRINTWH$+"3"; 

520 RETURN 

530 REM OPZIONE 

540 CC=0 : RG=22 : CL=4 

550 IFCC=1THENCC=CC+1=PRINT"■"; : GOTO570 
560 PRINT"S"; CC=1 

570 GOSUB470 : PRINT "SCEGLI UN NUMEROIimilllllllllir 1 ; :FORI = 1TO500 = NEXT= IFCC=2THE 

NRETURN 

580 GQTO550 

590 REM VARIABILI 

600 GOSUB500 : PRINT"M"+Z9$ 

610 REM COPPIE 

620 GOSUB500 : PRINT"fl"+Z9$ 

630 PRINT"iniGraiMNUMERO COPPIE" : PRINT"KPI(MIN. 3 - MRX. 200)UT 
640 INPUT IFS<3ORS>200THENPRINT"T; : GOTO640 

650 FORI-lTOh : S(I)*S : NEXT=RETURN 
660 REM RZZERR CARATTERI 

670 PZ=5120 : PU=PZ : FORK=0TO1023:POKEPZ+K,0 : NEXT : RETURN 
680 REM INTRODUZIONE 
690 REM DATI 
700 GOSUB410 

710 Z9$ s " IH3IINTRODUZI ONE DATI" 

720 GOSU9500 : PRINT"IW ,, +Z9$ 

730 RG=10 : CL=1 : GOSUB470 

740 PRINT"Sii....INPUT DA TASTIERA" 

750 RG=15 GOSUB470 PRINT"321.NUMERI CASUALI" 

760 RG=22 : CL=4 

770 GOSUB530 : GETAt- • IFVAL<A$K1ORVRL(R$»2THEN770 

780 ONVAL(RS)GOTO820 > 790 

790 REM 

800 GOSUB610 

810 RU=RND<-TI):FORJ=1TON : FORI■=1TOSCJ) : X<I,J>=RNDCI):HEXTI,J RETURN 

820 REM NUOVI DATI 

830 GOSUB610 

840 GOSUB860: RETURN 

850 RG=4 : CL = 10•GOSUB470:PRINT" SSERIE";T9;"■": RETURN 

860 H7=0:F0RT9=1T0N:GOSUB500 : RG=2 : CL=1=GOSUB470:PRINT"a";Z9$ 

870 GOSUB850 : E=0 : GOSUB 880 : NEXT T9 : RETURN 
880 F0RI=1T0S<T9) 

890 E=E+1 

900 IFE=9THENH7= 1 : GOSUB960 : GOSUB500 : RG=2 : CL= 1 : GOSUB470 : PRINT " 3"Z9 i ■ GOSUBS50 : E= 1 
910 RG=E#2+3 : CL=4 = GOSUB470 


920 ZZ$=MID*CSTR$CI>,2,LENCSTR$(I>)-1> : PRINT"3"jZZ*; 
930 INPUTfì$=I FE= 1THENA$=MID$ <fì$,23,13) 


">i" : PRINT "!WMMr 


940 X<I> T9>=VRLCA$) : PRINT"W"; 


950 NEXT I ; H7 s 0 : GOSUB 960:PRINT"T; : RETURN 

960 RG=22 : CL=3 : GOSUB470:PRINT"CODIFICA DATICS/N)" 

970 GET A$ 

980 IF ft$="N" THEN E=1 : RETURN 

990 IFR$="S" THENFF=1 : RG=5 : CL=1 : GOSUB470 : PRINT">" : GOTO 1010 
1000 GOTO 970 

1010 RG=22 : CL=2 : GOSIJB470 : PR I NT " jMODIFI CR=M FI NE=FT : GOSUB 1140 


Seguilo programma BIT. 
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Seguilo listalo programma 
BIT. 



1020 GET A$ 

1030 IF A$="M"THENFF=FF+1 :GG=1 : G0TO1080 
1040 IF A$="TTHEN FF=FF-1 ; GG=-1 GOTO1080 
1050 IF A$="M"THEN1180 
1060 IFA$="F"THENE=1 : RETURN 
1070 GOTO 1020 ' 

1080 IF FF<1 THENFF=1 : GOTO 1020 
1090 IF FF>EETHENFF=EE: GOTO 1020 
1100 PRINT" " : GOSUB 1120 
1110 GOTO 1020 

1120 IF GG=1 THEN PRINT 1 "M>T : RETURN 
1130 PRINT"rm>ll" ;= RETURN 
1140 EE=E : IF E=9 THEN EE=8 
1150 FOR TT=1 TO 2*EE+2 
1160 PRINT"T; 

1170 NEXT TT=RETURN 

1180 PRiNT"*tM»M>»>ii»H»M>itMHtana>aar; : i nputa$ : i fff =1 thena$=mid$ < a$,23 

,13) 

1130 X<I-1-E+H7+FF,T9>=VAL':A$> 

1200 PR I NT'"W; GOTO 1020 
1210 REM CORRELAZIONE 
1220 N=2 : GOSUE680 
1230 REM CALCOLO 
1240 WZ=0 

1250 F0RI»lT0S:F0RJ*lT02:RS<J)«fiS<J)+Xa-J):Q<J)-Q<J)+X<I,J)T2:NEXTJ 
1260 XY«XY+X<Ll)*Xa,2):NEXTI 

1270 F0RI=1T02 : M<I>=AS<I>/S : S<I>=GK I)-S*M(I)T2 : NEXT 
1280 C0V=XY-AS<1>#AS(2VS 
1290 IFS <1X1E-60RS <2)<1E-6THENWZ® 1 : GOTO 1310 
1300 R=C0V/SQR<S<1)#S<2>> 

1310 F=S-2 : IFSU XE-6THENWZ=2 : GOTO 1370 
1320 BV=COV/S(1)^ AV*M<2)-BV#M<1) 

1330 DXY=S<2)-C0Vt2/S<l> 

1340 S2=DXY/F:SV=S2T.5 :SB=SV/S<1)t. 5 
1350 IFSB<1E-6THENWZ=3 : GOTO1370 
1360 T=BV/SB 
1370 REM STAMPA 

1380 IFEL$= " V " THENOO$=CHR$ (13) : PRINT" 73" ; :GOTO1410 

1330 0PEN4,4XMD4,"CORRELAZIONE E REGRESSIONE LINEARE" : PRINT 

1400 F0RI=1T0S : F0RJ=1T02PRINTX(I,J); : NEXT:PRINT : NEXT SPRINT 

1410 F0RI = 1T02 : PRINT "GRUPPO".; I : PRINT : PRINT "MED IR" ; 00$; : B=M(I> : GOSUB110 : PRINTB* 

1420 PRINT"DEVIANZA”;00$; : B=S(I) : GOSUB 110 : PRINTB$ : PRINT : NEXT 

1430 PRINT"COVARIANZA";00$; : B=COV:GOSUB110 : PRINTB* 

1440 I FEL$="V"THENGOSUB70 

1450 IFWZTHENPRINT"COEFFICIENTE DI CORRELAZIONE NON CALCOLABILE" : GOTO1470 
1460 PRINT "COEFFICIENTE DI" ; 00$ ; " CORRELAZI ONE " ; 00$ ; : B=R : GOSUB 110 : PR I NTB$, 00$ 

1470 IFWZ=2THENPRINT"PARAMETRI DELLA REGRESSIONE NON CALCOLABILI" : GOTO1590 

1480 PRINT"COEFFICIENTE B DELLA",00$,"RETTA DI REGRESSIONE";00$; B=BV:G0SUB110:P 

RINTB$,00$ 

1490 PRINT"COEFFICENTE A DELLA";00$, "RETTA DI REGRESSIONE",00$; : B=AV:GOSUE'l 10 : PR 
INTB$ 

1500 IFEL$="V"THENGOSUB70 

1510 PRI NT "DEVIANZA DALLA "00$' , REGRESSI0NE”00$; :B=DXV''GOSUBU0 : PRINTB$ 

1520 PRI NT “VARIANZA DALLA "00$"REGRESSI0NE"00$; :B=S2 : GOSUB110F'RINTB$ 

1530 PRINT 11 DEVIAZIONE STANDARD "00$"CAMPI0HARIA DALLA "00$"REGRESSI0NE"00$: : B=SV 
:GOSUB110:PRINTB$ 

1540 IFEL$="V"THENGOSUB70 

1550 PRINT"DEVIAZIONE STANDARD "00$"CAMPIONARIA DI B"QO$; : B=SB : GOSUB110 : PRINTB$ 
1560 IFWZ=3THENPRINT"T TEST NON CALCOLABILE" : GOTO1580 
1570 PRINT"T TEST”00$; : B=T:GOSUB110 : PRINTB$ 

15S0 PRINT"GRADI DI LIBERTA'";F 

1590 IFEL$="S"THENPRINT#4 : CL0SE4 : GOTO1610 

1600 GOSUB70 

1610 GOSUB500:PRINT"MR»maaiWUOI LA GRAFICA 7MHIS6/N" 

1620 GETA$ : IFA$O"S"ANDA$O"N"THEN1620 
1630 IFA$="S"THEN1680 

1640 GOSUB500'PRINT"WB!WK)!>aaaar', , IJOI FINIRE ?HII!3S/H" 

1650 GETA$: IFA$O"S"ANDA$O"N"THEN1650 
1660 IFA$="S“THENPRINT"T :END 
1670 RUN 

16S0 REM GRAFICA 

1690 GOSUB500 : Z9$=")»iaa»»ISGRRFICR" PRINTZ9$' INPUT "MSKOTaiLABEL X";X$ : INPUT"!K>I 
«iLABEL V",V$ 


f 
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1706 X0=X(1, 1) : X1*X<1, 1) ■'Y0 S X<1,2) ; Y1=X<1,2) 

1710 F0RJ=2T0S : IFX<J, 1KX0THENX0=X<J,1 > 

1720 IFX<J,1)>X1THENX1=X<J,1> 

1730 IFXCJ, 2KY0THENY0=X< J, 2) 

1740 1FX < J,2)>V1THENV1=X(J,2) 

1750 NEXT 

1760 RX=X1-X0 RV=V1-V0 

1770 X0=X0-.1#RX: X1=X1+.1*RX:Y0=Y0-.1#RY:Y1=Y1 +.1*RY 
1780 BX=X1-X0 : DV=V1-V0 

1730 SX=DX/6 ; SY=DY/6■Z9=SX : GOSUB300 : SX=Z9■Z9«SY■GOSUB300■SY=Z9 

1800 29=X0■GOSUB300:27=X0 Z5=DX■GOSUB370'X@=Z7'Z9=V0:GOSUB300 : Z7=Y0■Z5=DV:G0SUB3 

70 

1810 DX=X 1-X0 : DV=V1-V0 


1820 REM MM=DENSITR-',RR=RIGfl,CC=COLONNfl DI X0,Y0 
1830 BC=37883 : RR=5 : CC=3 : MM=1 

1840 PRINT'TMa"; 'F0RT=lT023-RR PRINTTfìB<CC-n; "3 I" : NEXT 
1850 PRINTTRB<CC>; : FORT =1T022-CC:PRINT"«T"; :NEXT 
1860 PR=(22-CC)#8-1 ; PC=(23-RR)#8-1 
1870 POKE36869..205-POKE36879,110 


1880 FORXP=X0TOX 1STEPDX/PC/MM : YP=RV+BV*XP : IFYPCY0ORYP>Y1THEN1900 


1890 GOSUB2140 
1900 NEXTXP 

1910 F0RI=1TQS : XP=X(1,1):YP=X(I,2) 


1920 IF < XP<X0) + < XP>X1) + (YP<Y0) + < YP>Y1)THEN1940 

1930 GOSUB2140 

1940 NEXT : PRINT"J8S"; 


1950 FORI=lTOLEN<Y$> : PRINT" S "MID$<Y$, 1,1 > •’IFLEN<V$»8THEN1970 
1960 PRINT" " 

1970 NEXT : OQ$=" ":QQ=2:IFIEN<X*»8THEN0Q$=" " :OG=l 

1980 PRINT”) : PRINTSPC(22-0Q#LEN<X*))J :IFX$=""THENOQJ="" 


1990 FORI=lTOLEN(X$):PRINT"S"MID$<X$, 1,1>+OQ$; : NEXT 
2000 PRINT"8 ====================="; : CI=4 : CD=2 

2010 N9t="OVER LIM" 

2020 PRINT"a"i:B=X0:GOSUB110 


àuso i 

2040 PRINTB*;"<=X<="; :B=X1 :GOSUB110 
2050 IFLEN<BI*)-1>CITHENB$=N9* 

2060 PRINTBI" 


2070 PRINT"8"J :B=V0GOSUB110 
2080 IFLEN <BI$) ■-1>CITHENB*=N9* 

2890 PR I NTB$ ; "<=V<="J 1 B=Y1 : GOSUB110 
2100 IFLEN(BI$ >-1>CITHENBJ=N9* 

2110 PRINTB*; 

2120 GETR$:IFRt=""THEN2120 

2130 PRINT "IH" : P0KE36869,192 :P0KE36879,27 :GOTO2260 
2140 X=(XP-X0 > *PR/DX:Y= < YP-Y0 > #PC/DV 


2150 RX=X/8:BX=Y/3:R1M=X-R^*8:R2X*Y-BX#8 : VX=2T(7-R1X> 
2160 IFKTHENK=0 : GOTO2190 
2170 IFCXOC1THENGOSUB2200 
2180 IF < PZ-PU)X8=32THENPZ=PZ+8 



<BX+RR)#22+RX+CC 


2190 C1=CX : PB=PZ+7-R2X : POKEPB,VXORPEEK< PB) : RETURN 
2200 ZQ=PEEK(WH+484+Cl):IFZQ=32THEN2240 
2210 IFZQ>127THEN2230 

2220 FORKQ=0T07:P0KEPU+ZQ#8+KQ,PEEK < PZ+KQ > ORPEEK < PU+ZQ#8+KQ):POKEPZ+KQ,0 :NEXT: RE 
TURN 


2230 FORKQ=0TO7 : POKEPZ+KQ, PEEK < PZ+KQ > ORPEEK < PU+ZQ*8+KQ): NEXT 
2240 P0KEWH+484+C1, <PZ~PU>/8 : P0KEBC+484+C1,1 : PZ=PZ+8 
2250 RETURN 

2260 GQSUB500 : Z9$="SORRFICR" 

2270 PRINT"JWXMH"Z9f : PRINT"SHSWWMafYUCI UNR SCRLR" : PRINT 1 "OTMWDIFFERENTE ?M 

aiiias/N" 

2280 GETfi$ : IFR$O"S"RNBR$O"N"THEN2280 
2290 IFfl*="N"THEN164Q 

2300 GOSUB500 : Z9f= " *»»MI3L IMITI GRRF ICO": PRINTZ9* : PR I NT "MBS" 

2310 INPUT"X MIN.I»nMtf";X0 
2320 INPUT"JK MRX.";X1 
2330 IFX1-X0<=1E-6THENPRINT"TTT'.: : GOTO2310 
2340 PRINT 

2350 INPUT"V MIN."JV0 
2360 INPUT "Mi' MAX."IVI 

2370 IFV1 -Y0<= 1E-6THENPRI NT " Tn" ; :GOTO2350 
2380 GQSUB660: GOTO1730 
2390 PRINT "ri"; : END 




Seguito listato programma 
BIT. 
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ZX micologo. 
Attenzione, comunque, 
agli avvelenamenti! 


Con questo programma lo ZX81 è in grado di riconoscere una sessantina di funghi 
tra i più comuni, e sarà quindi un valido aiuto ed allo stesso tempo uno stimolo per 
coloro che vorranno avvicinarsi per la prima volta alla micologia. 



di A. Potano 

N aturalmente il programma non vuole e 
non può sostituire alcun testo valido che 
tratti dell'argomento e del quale, anzi, si consiglia 
la lettura per integrare ed arricchire il numero di 
informazioni date dal computer in special modo 
relativamente alla commestibilità dei funghi. 
Questa parte infatti è trattata soltanto nel caso 
degli unici tre funghi veramente mortali che si 
conoscono. 

Una raccomandazione va fatta in merito alla 
caratteristica "sapore" del fungo in esame: il fun¬ 
go si può assaggiare solo quando si è perfetta¬ 
mente sicuri della sua commestibilità; per poter 
individuare tale caratteristica ci si dovrà affidare 
per le prime volte, con buona approssimazione, 
al proprio olfatto. 

E veniamo ora alla descrizione del programma. 
Con uno dei soliti cicli FOR-NEXT, che poi andran¬ 
no cancellati, si inseriscono le due tabelle F$ ed 
N$ opportunamente dimensionate. Fatto ciò, si 
immette il programma come da listato e, a lavoro 
ultimato, lo si salva su nastro con il comando 
diretto GO TO 9998. A questo punto il programma 
va in autostart e si potranno verificare i seguenti 
tre casi: la percentuale di correlazione tra il fungo 
descritto ed il fungo in memoria è inferiore al 
cinquanta per cento ed allora il nostro ZX affer¬ 
merà di non conoscerlo. Al contrario vi potranno 
essere due o più funghi che hanno le stesse pro¬ 
babilità di risultare quelli con i caratteri da noi 
impostati, la qual cosa verrà segnalata con il 
messaggio della linea 2120. 

L'ultimo caso invece è quello in cui non vi sono 
dubbi e pertanto viene visualizzato il nome del 
fungo (in latino). Un'ultima avvertenza: per le de¬ 
scrizioni del fungo in esame o per eventuali am¬ 
pliamenti delle tabelle memorizzate ci si potrà 
avvalere della tavola di identificazione. #3 


REMarks 


1-100 

110 


1000 

1500-1690 


Presentazione del programma. 
Viene inizializzata K$ che conterrà 
tutte le caratteristiche del fungo in 
esame man mano richieste dal com¬ 
puter con le linee dalla 120 alla 950. 
Subroutine per la formazione di K$. 
Vengono richieste due caratteristi¬ 
che individuate con certezza in mo¬ 
do da abbreviare e selezionare la 
successiva ricerca. 





imm 


miti 


y • ••.! •• •• W’ - VIVIVI 


PREMI Ni 


m 

W-LINE 


IL FUNGO CHE PIU" 51 PWICIMH 
(87.5V*) RLLR TUR DESCRIZIONE 
SI CHIflMR: 


RHPNITP UERNP 



R N C O R R ? o ■ N 


2000-2110 

2113-3000 

F$ 

NS 

KS 

M ed N 

R 

P 

K 

J 


Avviene il controllo tra il fungo de¬ 
scritto ed i funghi contenuti in me¬ 
moria. 

Output del programma. 

Tabella con i nomi dei funghi. 
Tabella con le caratteristiche dei 
funghi. 

Caratteri descritti dall’utente. 
Posizioni dei caratteri individuati 
con certezza. 

Numero dei funghi individuati dal 
computer. 

Percentuale di correlazione del fun¬ 
go esaminato durante il ciclo di ri¬ 
cerca. 

Percentuale di correlazione del fun¬ 
go individuato. 

Posizione in tabella del fungo indi¬ 
viduato. 


t 
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TAVOLA DI IDENTIFICAZIONE 


ORNAMENTAZIONI 
DEL CAPPELLO 



CON MARGINE 
STRIATO 



SCREPOLATO 






CON VERRUCHE 


FORMA 
DELL' IMENIO 



LAMELLE DECORRENTI 




ORNAMENTAZIONI 
DEL GAMBO 



ZONATO 


PUNTEGGIATO 



RETICOLATO 



VOLVA A SACCO 



VOLVA NON A SACCO 





ANELLO LISCIO 
E STRIATO 


Figura 1 - La tavola di 
identificazione che per¬ 
mette l’esame del fungo 
ed anche l’ampliamento 
delle tabelle memorizza¬ 
te. 
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Figura 2 - Le due tabelle 
di nomi e caratteristiche 
da introdurre con un ci¬ 
clo FOR...NEXT. 


Figura 3 - Il listato del 
programma ZX micolo¬ 
go: ma attenzione ad 
usarlo con le dovute pre¬ 
cauzioni! Gli avvelena¬ 
menti da funghi sono 
molto comuni anche tra 
gli esperti .... di compu¬ 
ter. 



1 ) 

72117411 

2 > 

12111414 

0 l 

31212441 

4 > 

31111614 

5 ) 

43111511 

Sì 

4411463 1 

7 » 

24li1614 

8) 

23134711 

Q { 

2126261i 

10) 

3 i8t>4w8 i 

11) 

31141S11 

12) 

11141813 

13 ) 

31243641 

14 ; 

1551 1512 

15) 

411546 11 

16 ) 

12611611 

17) 

4 E' 4- 3 4 ® 4 I 

16 ) 

S S 4 3 S o ’3 ì 

19) 

,i O c- » ì “ i 

20) 

52545881 

21) 

21“22844 

22 > 

35753565 

2 3 ) 

3x2 33376 

24 ) 

I 5 1 v_‘. 1875 

25 ) 

4Sili731 

26) 

36111711 

27) 

11511711 

2 8 ) 

11121811 

2 9 ) 

2 6 1 2 2 6 15 

3 0 1 

53555614 

31) 

45244.344 

A *. 

-•c .* 

11121713 

33) 

47224711 

34 > 

61141611 

35) 

42511811 

36) 

11511731 

37 ) 

17®11731 

38) 

16511744 

39 ) 

62131811 

40 » 

81131815 

4 1) 

31131815 

42 ) 

77131811 

43) 

12121812 

44 ) 

1i121812 

45 ) 

51525331 

46) 

12122811 

47) 

46121611 

4 5) 

51272151 

49) 

29271711 

50) 

25272611 

51) 

41171111 

52) 

39273741 

53) 

41574134 

54) 

35374151 

55 ' 

45374251 

56) 

47174211 

57) 

31174211 

58) 

41372151 

59) 

1111 1411 

60) 

00000000 


i > 
2 ) 
3) 

4 :« 

^ ' 

6 ) 
7) 

s:« 

9) 

ie>) 

li) 
12 .« 

13) 

14) 

15) 
15) 
17 ) 
18) 

19) 

20) 
ai ) 

S2) 
£3) 
£ 4 ) 
25 ) 
a 5 ) 
27) 
23) 
29) 
30 ) 

3 1 ) 
32) 
33 ) 

34) 

35) 
35) 

37) 

38) 

9 i 

4 0 ; 

41) 

42) 

43) 
44 ) 
4 ) 
4-6 ) 
47) 
4® ) 

4 9 ) 
50) 

5 i} 

52) 

53) 

54 ì 

55) 

) 

57) 

55 ) 

59) 

60) 


Rr-tHrMlTH PHftLLOIDES 
ftMRNITR UIROSfl 
RMRNITR CRESRRER 
P.MRNITR MUSCRRIR 
AMANITA PANTHERINA 
RMRNITR rubescens 
AMANITA CITRINA 
RRMILLRRIR McLLER 


CANTHhRELLU5 CI3RRIUS 

CANTHhRELLUS cor nucopIOIDE5 
GLITOCVBE INVERSA 
CLITOCYBE NEBULRRIS 
OLII OCYBE OLEARIA 
CL17QPILUS PRUNULUS 
DOLLYBIR FUSIPE5 
COPRINUS ATRAME NT APIO *5 
COPTINARIUS ORELLANUS 
CORTINARIUS VIOLRCEUS 
ENTOLOHR LIVIDUM 
LRCCRRIR LACCATA 


HYPHOLOMA FASCICULARE 
LACTARIUS DELICIO 3US 
LRCTRRIUS VOLEMUS 
LRCTRRIU5 PIPERATUS 
LEPIOTR PROCERA 
LEPIOTA CPISTATA 
LEPIOTR NAUCINA 
MARA5MIU5 OREADE5 
MYCENA INCLINATA 
MYCENA PUPA 
PAXII.LUS INUCi UT US 
PHOLIOTA AEGERITA 
PHGLIOTR MUTABILI5 
PLEUROTUS OSTREATUS 
PLUTEUS CEROINUS 
P5ALLIOTA EISPORA 
P5ALLIOTA CAMPE5TRIS 
P5ALLIOTA XANTHODERMA 
R U SSUL R CY R N OXHNTHR 
P.USSULR NIGRICANS 
RUSSULA EMETICA 
RUSSULA VIRESCENS 
TRICHOLOMA COLUMBETTA 
TRICHOLOMA GEORGTI 
TRICHOLOMA MUDUM 
TR ICHOLOMA PORTE NT O 5 UH 
T RICHOLOMA TEPREUM 
SOLETUS REGIUS 
BOLETUS LUTEU3 
BOLETUS CRVIPE5 


BOLETUS EDULIS 
BOLETUS ELEGPNS 


BOLETUS 

BOLETUS 

BOLETUS 

BOLETUS 


FELLEUS 
PURPUREUS 
ERYTHROPUS 
3CABER 


BOLETUS RUFUS 


BOLETUS LURIDUS 
RMRNITR VERNA 


DATI INSUFFICIENTI 




1 SLOU 


2 

PR INT 

TRB 

12, 

3 

PRINT 

TRB 

10, 

4 

PR I ri ; 

TRE 

3, " 

G? 

• i 

PRINT 

TRB 

7; ” 

**■ 

PR INT 



6 

T RE 

'■ , 





—7 

f 

PRINT 

TRE 

w J 





8 
• t 

PRINT 

TRB 

6; '< 

9 

PRINT 

TRB 

13; 

10 

PRINT 

1 AB 

12, 

il 

PRINT 

TRB 

11, 

12 

PRINT 

TRB 

IO; 

13 

PRINT 

TRB 

10, 

14 

F RINT 

TRB 

11; 

15 

PRINT 

TRB 

12,- 



20 PRINT 
30 PRINT 


35 PR I NI 

I ■ . ■ 1 

40 PRTN7 


50 PRINT 
60 PRINT 




70 PRINT TRB 18;"PREMI NEU-LIN 
E" 

60 INPUT U$ 

65 CL5 

90 PRINT "CONOSCO CIRCA SO FUN 
GHI TRR I ","PIU"" COMUNI.RISPON 
DI RLLE DOMAN-DE CHE TI FARO"" E 
IO TI DIRO"*' IL NOME DEL FUNGO C 
HE HRI TROVATO." 

93 FOR T = 1 TO 250 
95 NEXT T 
100 CL S 
110 LET KS*"" 


120 
0 " 
130 

PRINT 

TRB 

9;"COLORE CRPRELL 

PRINT 



140 

PRINT 

" li 

BIANCO O GRIGIO" 

150 

PRINT 

"fi) 

GIRLLO O DORATO" 

160 

t » 

PRINT 

"3.1 

ROSSO O ARANCIONE 

170 

PRINT 

"4) 

BRUNO O OCRR" 

180 

PRINT 

"5.1 

VIOLETTO O ROSA" 

190 

PRINT 

"6.1 

VIOLA SCURO" 

200 

PRINT 

"7.1 

VERDE OLIVAOEO" 

210 

PRINT 

"8.1 

NERO" 

230 

GOSUB 

1000 

240 

PRINT 

TRB 

9;"ORNAMENTO CARA 

ELLO 

• 



250 

PRINT 



260 

PRINT 

"1) 

LISCIO" 

270 

PRINT 

"21 

FIBRILLOSO" 

230 

PRINT 

" 3) 

VERRUCOSO" 

290 

PRINT 

"4.1 

CON PLACCHE" 

300 

PRINT 

"5.1 

VELLUTATO" 

310 

PRINT 

"6.1 

DESQUAMATO" 

320 

PRINT 

"7.1 

SCREPOLATO" 

330 

PRINT 

"8.1 

MARGINE STRIATO" 

- 340 

P.R T NT 

J'Q). 

ILTSilTJDn " 

345 

GOSUB 

1000 

350 

PRINT 

TRB 

9;"COLORE LAMELLE 

0 PORI" 


• 

355 

PRINT 



360 

PRINT 

"1) 

BIANCO O GRIGIO" 

370 

PRINT 

"2.1 

GIRLLO" 

380 

PRINT 

"3.1 

ROSSO SCURO" 

390 

PRINT 

"4> 

OCRA" 

400 

PRINT 

"5.1 

ROSR O VIOLETTO" 

41© 

PRINT 

"8.1 

VIOLA SCURO" 

420 

PRINT 

"7.1 

VERDE GIALLASTRO" 

430 

PRINT 

"31 

NERO" 

435 

GOSUB 

1000 

440 

PRINT 

TRB 

9,"FORMA IMEMIO” 

450 

PRINT 


460 

PRINT 

"1.1 

LAMELLE LIBERE" 

470 

PRINT 

"2.1 

LAMELLE ANNESSE" 

480 

PRINT 

" 3 1 

LRHELLE hìDN&TE" 
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ì 



4-30 

PRINT 

" 4 1 

LRMELLE DECORREN1 

X * 1 
500 

PR INT 

"5.1 

LAMELLE SINUATE" 

510 

PRINT 

"6 ) 

RENATURE ■’ 

520 

PRINT 

"71 

TUBULI" 

530 

GG5U6 

1000 

540 

PRINT 

T AB 

9; "COLORE GAMBO" 

550 

PR INT 



5S0 

PRINT 

" 11 

BIANCO” 

570 

PRINT 

"21 

GIALLO” 

580 

PRINT 

"31 

ARANCIO" 

590 

PRINT 

" 4 1 

BRUNO O ROSSO" 

6 0 0 

PRINT 

"51 

vIOLETTO" 

610ÌPRINT 

"61 

UIOLR SCURO" 

620 

PRINT 

"71 

UERDPSTRO" 

630 

PRINT 

"Si 

NERO" 

640 

GCSUB 

1000 

550 

« i 

PRINT 

TRB 

9;"ORNAMENTO GAME 

660 

PRINT 



670 

PRINT 

" il 

RETICOLATO" 

6S0 

PRINT 

"21 

PUircGGIATO” 

690 

PRINT 

•• 3 1 

ZONATO" 

70.0 

PRINT 

"4.1 

UOLUA R SACCO E H 

NELLO" 



710 

PRINT 

"SI 

UOLUh non a sacco 

E ANNELLG 


LISCIO" 

720 

PRINT 

"61 

UOLUA NON H SACCO 

E ANELLO 


STRIATO" 

730 

PRINT 

" 7 > 

SOLO L""ANELLO" 

740 

PRINT 

"31 

LISCIO O FIBRILLO 

•SO" 




750 

GOSU6 

1000 

760 

PRINT 

TRB 

9;"COLORE CARNE" 

770 

PRINT 



730 

PRINT 

" 1) 

BIRNC O O GRIGIO" 

790 

PRINT 

"21 

INGIALLISCE" 

800 

PRINT 

" 3 1 

ARROSSA" 

810 

PRINT 

"41 

GIALLO" 

820 

PR INT 

"51 

GIRLLO IMBLUENTE" 

830 

PRINT 

"61 

LRTTE ROSSO" 

340 

PRINT 

"71 

LRTTE BIANCO" 

850 

PRINT 

"81 

SCURO" 

860 

GOSUB 

1000 

870 

PRINT 

TRB 

9;"SAPORE" 

880 

PR INT 



890 

PRINT 

"11 

DOLCE FUNGINO" 

900 

PRINT 

"21 

FRRINR FRESCA" 

910 

PRINT 

"31 

FARINA R ANOIDA" 

920 

PRINT 

"41 

AMARO" 

930 

PRINT 

"SI 

ACRE " 

940 

PRINT 

"6> 

DI PESCE" 

950 

GOSUB 

1000 

960 

GOTO 1500 


1000 

PRINT 

"01 

INDEFINIBILE" 

1005 

IF INKEV * 

="" THEN GOTO 1005 

1010 

LET U* 

=INKEV* 

1012 

IF U$ = 

t » n 

THEN GOTO IOIO 

1015 

LET K $ 

= K $ + U $ 

1020 

CLS 



1030 

RETURN 



1500 

PRINT 

“TRA TUTTE LE CARATTE 

RI5TICHE DR 

a a • 

J 

"TE ELENCATE INDIO 

ANE DUE DI 
TE CERTO. " 

CUI 

"SEI ASSOLUTANE 

1510 

PRINT 



1520 

PRINT 

"11 

COLORE CAPPELLO " 

1530 
0 ** 

PRINT 

"21 

ORNA6ENTO CAPPELL 

1540 

PRINT 

"31 

COLORE LAMELLE O 

TUBULI" 



1550 

PRINT 

"41 

FORMA IMEMIO " 

1560 

PRINT 

"51 

COLORE GAMBO" 

1570 

PRINT 

"61 

ORNAMENTO GAMBO” 

1530 

PRINT 

"71 

COLORE CARNE" 

1590 

PRINT 

"81 

SAPORE" 

1595 

‘ 1 «— 

PRINT 

a 

RT 

15,7; "=>"; AT 15,17 

1600 

IF INKEV $ 

="" THEN GOTO 1600 

1610 

LET M = 

URL 

INKEV $ 

1620 

0 

1625 

IF M < 1 

OR 

M > 8 THEN GOTO 160 

PRINT 

RT 

15,10;M 

1630 

IF INKEV * 

="" THEN GOTO 1630 

1540 

LET N = 

URL 

I NKEY$ 

1650 

0 

1660 

IF N < 1 

OR 

N>& THEN GOTO 163 

IF N=M 

THEN GOTO 1630 

1670 

PRINT 

RT 

15,20;N 

ISSO 

FOR T = 

1 TO 50 

1690 

NEXT T 



2000 

LET R = 

0 


2003 

CLS 



2005 

FAST 



2010 

LET K = 

0 


2020 

FOR A = 

1 TO 60 

2025 

IF N$(A1 CH TO MI TO M 

1 OR 

NS (A) ( N TO N 1 <>K $ t N TO N 1 T 

HEN GOTO 2110 


2030 

LET P = 

0 


2040 

FOR B = 

1 TO 3 

2050 

IF N$(A) (B TO B) =KÌ(B TO B1 

THEN LET P 

= P + i 

2060 

NEXT & 



20SO 

IF P > K 

THEN LET U =A 

2090 

IF P > K 

THEN LET P=1 


2100 IF P=K THEN LET R =R41 
210S IF P > K THEN LET K=P 
2110 NEXT R 
i‘112 6LOL» 

2113 IF K < 4 THEN GOTO 3OO0 
2120 IF P>1 THEN PRINT "ORTI INS 
UFFICIENTI O ERRATI.","CI SONO " 

; R ; " F UNGH I CHE SI AULICI- "MA 
NO RLLR TUR DESCIZIONE. 

2125 IF P .> 1 THEN GOTO 500C 
2130 IF P = 1 THEN PRINT "IL FUNGO 
OHE PIU"” SI RUUICINA 12. 

5*K ; ” " RLLR TUR DE5CRI2ION 

E"."SI CHIANA:’;RT 5,5,F$ iU) 

2135 IF Jrl OR J=2 OR J =59 THEN 
GOTO 2500 
2140 GOTO 5000 
250© PRINT 
‘ 2510 PRINT 

2520 PRINT TRB II; CHR$ 134.;CHR$ 
3;CHR$ O;CHR$ 0;CHR* 0 , CHR* 6 
2530 PRINT TRB 11;CHR* 0;CHR* 7; 
CHR* 12 & / CHR * 123 ; CHR $ 132 

254-0 PRINT TRB 11; CHR $ 0;CHR$ 12 
3;CHR$ 123;CHR * 128;CHR* 123 
2550 PRINT TRB 11;CHR$ 6,CHR* O; 
CHR$ 130,CHR$ 129;CHR $ 0;CHR* 13 

4 

£560 GOTO 5000 
2999 STOP 

300© PRINT "MI DISPIACE. NON CONO 
SCO QUESTO FUr^GO," 

5000 PRINT «"*" 2.1. , 3 , "ANCORA? 5/N" 
5010 IF INKEV* = " " THEN GOTO 5OI0 
5O30 IF INKEV* = ’ 5" THEN GOTO 100 
5035 OLE 

5040 PRINT RT il C , 3 ; " RRP XUEDERC I " 
6000 STOP 
9997 STOP 

9 9 9 3 S R U E " F U N G Hf| ’ * 

3999 GOTO 1 




SlNCLAI R 

Z% SPECTRVI1 

w.*s oppoRE 90 k/ 



/NVI^AE /t? COO PER FAVOLOSO CATALOGO 
ILLUSTRATO 61 ACC£sS’0&\ ) ?AOG£AHm Li6*l 


MICRO SHOP 


hickoronrt/rrti 
rtfCfcSiOPl 
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Un programma per l'adattamento di alcune variabili statistiche a valori 

campionari 

di G. Taroni 


I l programma consente la stima dei para¬ 
metri di scala e di locazione per alcune 
variabili statistiche comunemente impiegate per 
la descrizione di fenomeni idrologici e nella teoria 
della affidabilità; alcuni controlli di adattamento 
(goodness of fit) (empirici) della variabile statisti¬ 
ca prescelta per l'interpretazione del fenomeno 
quantitativo in studio. 

Le variabili trattate dal programma sono le se¬ 
guenti: 

Gumbel per la distribuzione dei massimi, 
Logistica, 

Esponenziale, 

Normale, 

Log norma le, 

Cauchy, 

Gumbel per la distribuzione dei minimi, 

Weibull, 

Pareto, 

Frechét. 

Tutte caratteristiche da due parametri, di locazio¬ 
ne e di scala. 

Il calcolo dei parametri si è svolto con alcune 
varianti del metodo "best line fitting" per poter 
essere applicato anche a campioni suddivisi in 
classi di frequenze. 

Il programma è implementato su Hewlett Pac¬ 
kard 85; non ricorre alla Advanced Programming 
ROM anche se, per maggiore chiarezza, sono 
riportate come istruzioni commento (!) alcune 
CALL in quanto ne facilitano la trascrizione in altri 
linguaggi. 

Alcune note 

Se la distribuzione scelta è la Lognormale, la 
Weibull, la Pareto o la Frechét, il programma po¬ 
ne in X () i logaritmi dei valori campionari. 

Per condurre le verifiche che comportano il cal¬ 
colo dei logaritmi è bene accertare che tutti gli X 
( ) siano maggiori di 0. In questo caso, per il calco¬ 
lo dei quantili associati ai livelli di "probabilità" 
richiesti, rispondere con S all'opzione logaritmica. 

In generale, per ottenere le quantità X teoriche 
(calcolate cioè supponendo che X sia realmente 
tratto dalla variabile statistica scelta) associate 
ai livelli di probabilità che ci interessano, basta 
impostare un valore tra 0 e 1, estremi esclusi. Se si 
è interessati ai quantili associati ad un periodo di 
ritorno Q, basta impostare il numero (Q-1)/Q. 
(19/20 per 20 unità temporali). 

Se la numerosità campionaria non è troppo mo¬ 
desta si può giudicare l'accostamento della va¬ 
riabile statistica scelta al campione X tramite il 
test Chiquadrato se i valori sono suddivisi in classi 
o tramite il grafico altrimenti. 

Nel primo caso l'accostamento della variabile 
statistica scelta è giudicato in funzione del valore 
fornito dai test Chiquadrato che va confrontato 
con il valore critico della omonima variabile con 


K1-1 gradi di libertà. 

Nel grafico invece sono riportati gli intervalli di 
confidenza al 5% del test di Kolmogoroff relativi 
alla stima della funzione di ripartizione in corri¬ 
spondenza ai K0 valori della variabile X(). Tali 
intervalli sono poi uniti con tratteggi continui e si 
ottengono così linee di massimo e di minimo. 

È inoltre riportata la funzione di ripartizione L( ). 
Per accettare l'ipotesi di adeguamento della va¬ 
riabile scelta, la funzione di ripartizione L( ) deve 
intersecare tutti gli intervalli della figura. Se ciò 
non accade non è probabile (5%) che il campio¬ 
ne X() sia effettivamente tratto dalla variabile 
statistica ipotizzata. Il grafico successivo riporta i 
valori campionari X(), F() in scala di probabilità 
della variabile statistica scelta, tratteggiata 
sull'asse Y. 

Per un accostamento "perfetto" i punti devono 
disporsi sulla retta tratteggiata. Per un più appro¬ 
fondito esame statistico dei problemi delineati, si 
rimanda alla bibliografia. 

Bibliografia 

(1 ) Azzalini A., Pesarin F. (1976): Verifica statistica 
di ipotesi funzionale non parametrica. L'Elabora¬ 
zione Automatica 2,3. 

(2) L. Carbognin, G. Taroni (1982). Verifica statisti¬ 
ca di ipotesi funzionali con parametri stimati. Ap¬ 
plicazione agli eventi delle acque alte di Vene¬ 
zia. In corso di pubblicazione su Statistica Appli¬ 
cata. Voi. 3 - 1983. 

(3 ) Pesarin F. ( 1981 ): Un test per il controllo statisti¬ 
co di curve di affidabilità dipendenti da due pa¬ 
rametri, con dati censurati. Atti del Convegno 
della S.I.S., 271,84. 



LE SUBROUTINE 

FNA 

Calcola il vettore W( ) relativo ai pesi da 
attribuire alfinterpolazione per la sti¬ 
ma dei parametri per campioni censura¬ 
ti come proposto in (3). 

FNP 

Calcola i parametri Al e B1 della retta 
di regressione con il metodo dei minimi 
quadrati. 

FNR 

Calcola il coefficiente di correlazione 
lineare. 

FNT 

Calcola i valori “tipo” o quantili tratti 
dalla variabile statistica scelta. 

NDTRI 

Per i quantili della variabile normale. 

FNF 

Calcola la funzione di ripartizione della 
variabile statistica scelta. 

NDTR 

Per la ripartizione della normale. 

FNH$ 

Funzione della variabile statistica scel¬ 
ta. 

Esegue il grafico con scale opportune: 
asse Y tra 0 e 1, asse X tra X( 1 ), X (KO). 

GRAF 

QUANT 

Calcola i quantili e i periodi di ritorno 
associati ai livelli di probabilità intro¬ 
dotti da tastiera. 
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NOME DEL FILE ? 
TfiSTIERfi DFITR FILE ? 

* 

TASTIERA 

TfìSTIERR 

nu m e ro delle classi 


il numero delle eiass 

r. 

"7 A *7 e 

H . w* , 

X= 34 .30 

"1 

F = 5 

39.7/7 

X= 39.70 

»"i 

F= 7 

4 6,8 

X= 46.00 

r, 

F = S 

56,1 1 

X= 56 00 

F= 1 1 

64.1,11 

X= 64.10 

O 

F = 1 1 

71.2,5 

X= 71.20 

r» 

F = 5 

«r 

103,8 

X= 103.00 

F = 8 


NUMEROSITA' CRMP1ONfiR1 
TIPO CU DISTRIBUZIONE 

GUMBEl MASSIMI 

LOGISTICA 

ESPONENZIALE 

NORMALE 

LOGNORMALE 

CRUCHY 

GUMBEL MINIMI 
WEI BULL 
PAfcETO 
FREGHE'T 

V 

1 

GUMBEL MASSIMI 




1 

c. 


CALORI CENSURATI 


O 


NO 

NO 

X= 

x= 

x= 

x= 

x= 

x= 

x= 


34 

39 

46 

56 

64 

71 

103 


300 

700 

000 

000 

100 

200 

000 


VC 

OC 

oc 

ve 

ve 

ve 

ve 


TIPO 

TIPO 

TIPO 

TIPO 

TIPO 

TIPO 

TIPO 


. 525 

1.246 
1 . 742 
4.016 


PESI Wì=Fì ; S/N 
? 

N 

N 

Al- .069 B1= -3.223 

Var.res ** 010119415134 XX 

CORR. L I N = 997444 


P r < X < = 

P r < X < = 

P r < X <= 

Pr(X<= 

P r ( X O 
P r X < = 

P r < X < - 

XXX FREQUENZE XXX 


ella t . d i_ 

riparti: 

34.30> 

. 0951 

39.70) 

. 1977 

46.00) 

. 3502 

56.00> 

. 5908 

64.10) 

• . 7402 

71.20) 

.8317 

103.60> 

. 9797 


OSSERVATE 

TEORICHE 

5 

5.229 

1* 

5.64 5 

8 

8.385 

1 1 

13.2 '■ 7 

1 1 

8.214 

5 

5 0 3 3 

8 

9.257 


CIQUAD.= 1 .S 470890719 
LOCAZ= 46.70 SCALA* 14.49 
CALCOLO DEI QUANTI LI* .5 PER LA 
MED IANA 

VALORI 0<X<1 -< = 0PER TORNARE NEL 
MA I N 

OPZIONE LOGARITMICA? <S/N> 

•7 

N 


3 

QUANTI LE 

PROB 

P.RITORN 

4 

r% 

/ 



5 

c* 

. J 



6 

52.01 

*. 500 

2.00 

7 

A 



8 

Q 



9 

79.3 0 

. 900 

1 0.00 

1 0 

1*1 




.’ 95 




89.73 

. 950 

20.00 


O 




.98 

103.23 

. 980 

50.00 


54.-55 



- . 882 

104.62 

. 982 

55.00 

O 



- . 432 

. 99 



- .029 

113.34 

. 990 

100.00 


-1 

G PER IL GRAFICO 

7 









Figura 1 - Due esempi di 
stampa delle opzioni 
possibili. La richiesta 
dei grafici produce tre 
uscite. La prima è la ri- 
partizione della var. 
scelta L(). Tratto conti¬ 
nuo. Ripartizione empi¬ 
rica frequenze relative 
cumulate M()/(N+1). 
Tratto a puntini. 

La seconda riporta gli 
intervalli di stima della 
funzione di ripartizione 
campionaria in corri¬ 
spondenza degli X(). Se 
la curva L() interseca 
tutti gli intervalli verti¬ 
cali è superato il test 
grafico. 

La terza è una carta di 
probabilità della varia¬ 
bile scelta: quantili della 
variabile tipo in ordina¬ 
ta; variabile campiona¬ 
ria in ascissa. 
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Seguito figura 1. 


NOME DEL FILE ? 

ONDE 

numero delle classi 
il numero delle classi e' 55 
NUMEROS UH' CfiMP I ONRR I fi 55 
TIPO DI DISTRIBUZIONE 


GUMBEL MRSSIMI 1 

LOG ISTI Cfi 2 

ESPONENZIRLE 3 

NORMRLE 4 

LOGNORMRLE 5 

CRUCHY 6 

GUMBEL MINIMI 7 

WEIBULl 8 

PRRETO 9 

FREGHE*T lù 


GUMBEL MRSSIMI 

URLORI CENSURRT1 
NO 

PESI W ì =F ì • S N 
N 

R1 = . 068 E. 1 = -3.205 

Var.res ** .185561085218 

CORR.LIN* .993732 

L 0 C R Z = 47.30 SC RLR= 14.75 

CRLCOLO DEI QURNTILI* .5 FER LR 
MEDIRNR 

URLORI 0<X<1 : <*0PER TORNRRE NEL 
MRIN 

OPZIONE LOGfìRIThICR?<S/N> 


QURNTILE 

PROB 

P RITORNO 

52.70 

. 580 

2.00 

80.50 

. 900 

10.00 

91.12 

. 950 

20.00 

104.87 

.988 

50.00 

106.29 

. 982 

55.00 

115.17 

. 990 

100.00 

125.43 

. 995 

200.00 


G PER IL GRRFICO 
G 


LE QUANTITÀ’ DEL PROGRAMMA 

N 

Numero di elementi campionari. 

x<) 

Vettore campionario: X(l) <= X(k): 

<= N; i valori X() sono gli estremi 
superiori della suddivisione in classi. 

X( 1 ) <= <= X(k). 

F() 

Frequenze campionarie associate ai va¬ 
lori di X():X(1) con freq. F(l) .... Se il 
campione non è suddiviso in classi, ogni 

F( ) è pari a 1. 

M() 

Frequenze campionarie cumulate: M(J) 

= I F(I); 1=1,.J. 

T() 

Quantità della variabile statistica pre¬ 
scelta calcolata in corrispondenza delle 
quantità: M(I)/(N-F1) 1=1,.. numero 
classi. 

W() 

Pesi per il calcolo dei parametri della 
retta di regressione tra le quantità X( ) e 
T(). La retta di regressione è della for¬ 
ma: 

(ALBI): = I(A1X(I)+B1-T(I)T2 W(I) 

= min. 

L() 

Funzione di ripartizione della variabile 
statistica scelta calcolata in corrispon¬ 
denza alle quantità X() con i parametri 
stimati dal campione. 

L 

Numero d’ordine della variabile scelta: 
l=Gumbel max....9 = Pareto; 10=Fre- 
chét. 

K1 

Numero delle classi di suddivisione del 
campione X(). 



N$ Nome del FILE. Viene posto da input. 

Se i dati sono su nastro si imposta il 
nome del file. Il FILE deve essere suddi¬ 
viso in K1 record. 

Il record a sua volta contiene i valori 
X(I), F(I). (16 byte per record). 

Se i dati si danno da input si risponde 
TASTIERA o DATA se sono contenuti 
nell’omonima istruzione. 

A1S Viene posto da input e assume le moda¬ 
lità SI, NO. SI se i valori sono censurati 
a destra; si conosce cioè solo il numero 
degli X(), F(), superiori a X(KI). NO 
altrimenti. 

KO Viene posto dal programma =K1-1 se 

A1S=SL pari a K1 altrimenti. 

P2$ Assume le modalità SI, NO. Con SI 
l’interpolazione tra le X() e T() viene 
svolta con pesi W() proporzionali alle 
frequenze F(). Con NO sono calcolati 
come proposto in (3) per campioni cen¬ 
surati. 

Si consiglia quest’ultimo metodo se il 
campione è censurato. 

PS Viene posto da input. Se G viene con¬ 

dotto un test di adattamento grafico 
utilizzando il criterio Kolmogoroff. 


Figura 2-11 listato BASIC. 


10 OPTION BRSE 1 

20 SHORT X<90) t T <90>,W<90 )* L<90 
'} 

30 INTEGER N,K1,K0,L,L0 

40 INTEGER F < 98>,M<90) 

50 DIM R1$C23/N$C161,P$C2D,P2$C 
23,L$C1D 

68 h adattamento di una variati 
le statistica a valori campi 
ona r ì 

70 00=1.36 ! VfiLORE RL 5>. DEL T 
EST DI KOLMOGOROFF i 1.63PER 

\y. 

80 PRINTER IS 2 

98 FRI NT "NOME DEL FILE ?" G DI 
SP "TRSTIERR DRTR FILE ?" G 
INPUT N*G PR1NT Nt 
*80 IF N$#"TfìSTIERfi" RND N$#"DfiT 
fi" THEN RSSIGN# 1 TO N* 

110 PRINT "numero delle classi" 
128 INPUT K1 

130 PRINT "il numero delle class 
1 e ' " ; K1 

148 PRINTER IS 1 
158 FOR 1=1 TO K1 
160 IF N$="TfiSTIERfi" THEN INPUT 
X(1)T(I) 

170 IF N$ ="DfiTfi" THEN RERD X<I>, 
FCI > 

180 IF N$ <> "DRTfi'* RND N$#"TfiSTIE 
Rfi" THEN RERD# 1,1 ; X<I),F< 
I ) 

190 PRINT USING 200 ; "X= ",X<I> 
, "F = ",F< I ) 

200 IMRGE 4fi,DDDD.DD,2X,4fi,D0DD 
216 NEXT I G IF h$#"TfiSTIERfi" RN 
D N$#"DfiTfi" THEN RSSIGN# 1 T 
0 * 

220 PRINTER IS'2 
230 F 0 = 0 

240 FOR 1=1 TO K1 


e 
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Seguilo figura 2. 

250 F0=F0+F(I) 

260 M <I) = IN T <F0> 

270 NEXT I 
230 N = K1) 

290 FRI NT "NUMERGSITA' CAMPIGNRR 
IR "ìN 

300 PRINT "TIPO DI DISTRIBUZIONE 

ii 

310 PRINT " " 

320 FOR 1=1 TO 10 
330 PRINT FNH$<I>, I 
340 NEXT I 
350 INPUT L 
360 PRINT M " 

370 PRINT F N H $ < L > * 

380 PRINT " " 

390 PRINT H VALORI CENSURRTI “ 

400 INPUT R1* 

410 PRINT Rii 

420 IF A1 $ = *' NO" THEN K0 = K1 ELSE 
K 0 = K1 - 1 

430 FOR 1=1 TO KO 
440 IF L=5 OR L=9 OR L=8 OR L=10 
THEN X<I>=LOG<X<I>) ELSE 1= 
K0 

450 NEXT I <É! L0=<L=5>*4+<L=8>*7+ 
<L=9)*3+<L=10>*8 
460 IF L0>0 THEN L=LO 
470 PRINTER IS 1 
480 FOR 1=1 TO KO 8 W<I>=0 
490 X1=M<I>/<N+l> 

500 Z=X1 

510 GOSUB 1760 G T(I)=F0 ! CRLL 
"FNT M <X1,F0,L> 

520 PRINT USING 530 ; X(I) J(I) 
530 I URGE "X=",IX,DODO.ODO, IX,"O 
C TIPO",IX,ODO.ODO 
540 NEXT I 

550 PRINT " " G PRINTER IS 2 
566 PRINT "PESI W i =F ì ; S'N " G INP 
UT P2$G PRINT P2$ 

570 IF P2$C1>13#"S“ THEN GOSUB 9 
86 ELSE GOSUB 1370 ! CRLL "F 
NR ,; k N,K8,L,WO,TO,MO > 
580 ! 

590 GOSUB 1390 ! CRLL "FNP" < N, 
K0, XO , WO , T«. > , RI , B1 , P5, P6> 
600 ! 

610 PRINT USING 620 ; "Rl=", RI," 
B1 = " , B1 

620 IMHGE 3fì,2X,DDD.DDD,2X,3A,2X 
,DDD.ODO 

630 R0=0 0 FOR 1=1 TO KO G R0=R0 
+ (Ri*x(i)+Bi-Ta)) A 2^w(i> e 
NEXT I G R0=R0*(N+1)/<M(K0)- 

2 > 

640 PRINT "Var.re s " ;"** M ;R0;*' 

%% »• 

650 GOSUB 1540 ! CRLL "FNR" < N, 

K0 / F0/XOiWO;T<) ) 

660 PRINT USING 680 ; "CORR.LIN= 

",RBS < F0 > G PRINTER IS 1 
670 PRINT G PRINT "_ 

•i 

680 IMAGE 10A,2X,DDD.DDDDDD 
690 PRINT G PRINT "Valori della 
f.di riFartizione" G PRINT 
700 FOR 1=1 TO K0 G W0=X<I> 

710 U=W0 

720 GOSUB 2100 ! CRLL "FNF“ < W0 
,A1,B1,L,Z1 > 

730 Z1=F0 
740 L <I)=Z1 

750 PRINT USING 760 ; X<I>,Z1 
760 IMRGE "PrCX<=",IX,DDDD OD,") 

",2X,0D.DDDD 
770 NEXT I 
780 PRINT 
790 ! 
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Seguito figura 2. 



800 PRINT " *** FREQUENZE *** " 

810 PRINT " OSSERl'RTE TEORICHE" 
820 X1=0 g X 2 = F N L <1> 

830 PRINT USING 900 ; F<1>,X2 G 
IF X2>0 RND K1<N THEN X1=X1+ 
<F<1>-X2>~2/X2 

840 FOR 1=2 TO Kl G X2=FNL<I>-FN 
L(I-1) G PRINT USING 900 ; F 

<1>,X2 

850 1F X2>0 RND K1<N THEN X1=X1 + 

<F<I>-X2>^2/X2 

860 NEXT I G PRINTER IS 2 fi IF K 
1<h THEN PRINT "CIQURD.; XI 
870 X 1 =- < B 1 /'R 1 ) G X2=1/R1 G PRIN 
T USING 880 ; XI,X2 
880 IMRGE "LOCRZ=",1X,DD0D.DD,2X 
,"SCRLR=",IX,DDDD.DD 
890 GOSUB 2900 
900 IMRGE DDDDD,5X,DDDD.DDD 
910 PRINTER IS 2 
920 PRINT "G PER IL GRRFICO " 

930 INPUT P$ 

940 PRINT P* 

950 IF P$C1,11="G" THEN GOSUB 26 
40 G GOSUB 3020 
960 END 

970 ! ******:M: ***************** 
980 ! SUB "FNR" vN,KB,L,WO,TO, 

MO > 

990 ! ************************ X 
1000 FOR 1=1 TO K0 
1010 ON L GOSUB 1050,1090,1130,1 
170,1210,1230,1280,1320 
1020 W<I)=R9 
1030 NEXT I 
1040 RETURN 

1050 W1=<N+2>*M<I>*<LOG<M<I> >-L0 
G(N+1>)^2 s 

1060 W2=<N+1 -M< I>>*(N+1) 

1070 R9=W1/W2 
1080 RETURN 

1090 W1=<N+2>*M<1>*<N+1-M<I> > 
1100 W2= < N +1)^3 
11 10 R9 = W1/W2 
1120 RETURN 

1130 M1=<N+2>*<N+1-M<I>> 

1140 M2=<N+1>*M<I) 

1150 R9=W1/W2 
1160 RETURN 

1170 W1 = < N+1>*<N+2)*EXP<-<T <I) *T 

< I ) > ) 

1180 U2«M<I>*<N+1-M<I>>*PI*2 

1190 R9=W1/W2 

1200 RETURN 

1210 GOSUB 1170 

1220 RETURN 

1230 W0=<N+1>*<N+2>*C0S<M<:I>*PI/ 
<N+ 1 >-PI /2 >•' 4 
1240 U1=M<I)*<N+1-M<I>> 

1250 R9=W0/W1 
1260 R9=R9/PI^2 
1270 RETURN 

1280 U1=<N+2>*<N+1-M<I>>*<LOG<N+ 
1>-LOG(N+1-M <I>)>^2 
1290 W2=M<I>*<N+1> 

1300 R9=W1/W2 
1310 RETURN 

1320 Wl = <N+2>*M<:i>*<L0G<M< I > >-L0 
G<N+1)>^2 

1330 W2=<N+1-M<I>>*<N+1> 

1340 R9=W1/W2 
1350 RETURN 

1360 ! ************************* 
* 

1370 FOR 1=1 TO K0 8 W<I>=F<I>/N 
G NEXT I G RETURN 
1380 -! ************************* 
XX 

1390 » SUB "FNP" <N,K0,YO,WO,T 
<>,R1,B1,P5,P6> 

1400 ! ************************* 
X 


1410 PI,P2,P3,P4,P5,P6=0 

1420 FOR i=l TO K0 

1430 P1=P1+X<I >*X< I)*W<I> 

1440 P2=P2+X<I>*W<I> 

1450 P3«P3+T<I>*X<I>*M<I) 

1460 P5 = P5 + W < I ) G F‘6 = P6 + W< I ) *T< I 
) 

1470 NEXT I 
1480 p4 = P2 
1490 D=P1*P5-P4*P2 
1500 R1=<P3*P5-P6*P2)/D 
1510 Bl=<Pl*P6-P4*P3>/0 
1520 RETURN 

1530 ! ************************* 
X 

1540 ! SUB "FNR" <N,K0,F0,XO,W< 

) , T O ) 

1550 ! ************************* 
* 

1560 XI, X2,U,Y1,Y2,R,W0=0 
1570 FOR 1=1 TO K0 
1580 X1=X1+X<I>*W<I> 

1590 X2=X2+X<I>*X<I>*W<I) 

1600 y=X(I)n<I)^(l)+V 
1610 Y1«Y1+T<I>*W<I> 

1620 Y2=Y2+T<I>*T<I>*W<I) 

1630 W0=W0+W<I> 

1640 NEXT I 

1650 X1=X1/W0 

1660 X2=X2/W0 

1670 Y1=Y1/W0 

1680 Y2=Y2/W0 

1690 U=U/W0 

1700 X2=X2-X1*X1 

1710 Y2=Y2-Y1*Y1 

1720 R=<U-X1*Y1>/SQR<Y2*X2> 

1730 F0=R 
1740 RETURN 

1750 ! ************************* 
X 

1760 ! SUB "FNT " <Z,F0,L> 

1770 ! X ******** XX X-X X tXXX XXX XXXX 
X 

1780 ON L GOTO 1790,1810,1830,18 
50,1850, 190U, 1920, 1940 
1790 F0--LOG<-LOG<Z>> 

1800 RETURN 

1810 F0 = -LOG< <1-Z)/Z) 

1820 RETURN 
1830 F0=-LOG<1~2> 

1840 RETURN 
1850 P=Z G M=0 G S=1 
1860 GOSUB 1970 ! CRLL " NDTRI " < 
Z,0,1,23 ) 

1870 Z3=X 
1880 F0=Z3 
1890 RETURN 

1900 F0=TfìN<PI*Z-PI/2> 

1910 RETURN 

1920 F0 = LOG<-LGGU-Z> ) 

1930 RETURN 

1940 F0=LOG<-L0G<Z>> 

1950 RETURN 

I960 ! ************************* 
X 

1970 ! SUB "NDTRI" <P,M,S,X> 

1980 ! 4:************************ 
X 

1990 IF P < 0 THEN PRINT "PRNEG" G 
RETURN 

2000 IF P = 0 THEN X = -< 100*S>+M G 
RETURN 

2010 IF P>1 THEN PRINT "PRMftGl" 

G RETURN 

2020 IF P=1 THEN X=100*S+M G RET 
URN 
2030 D=P 

2040 IF D>.5 THEN D=l-D 
2050 T2=LOG<1/<D*D>> G T=SQR<T2> 
2060 X=T-(2.515517+.802853*T+.01 
03284T2)/C1+1.432738*T+.189 
269*T2+ . 001308*T*T2> 


48 - 1984 « Bit 


/ 















i 




2070 

2080 

2030 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2178 

2180 

2130 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2230 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 


IF P < = . 5 THEN X=-<X*S>+M EL 
SE X=X*S+M 
RETURN 

! XXXXXXXXXXXX Xxxxxxxxtxxxx 
X 

! SUB "FNF" <W,R1,B1,L,F0> 

! xxxxxxxxxxxxxxxxxxxxxxxxx 

X 

ON L GOTO 2130,2160,2130,22 
50,2250,2320,2340,2360 
W1=R1*W+B1 
F0=EXP<-EXPOW1 >> 

RETURN 
W 1 =R 1*W + B1 
F0=l/<1+EXP(-W1> > 

RETURN 
W1=RUH + B1 
IF W1<0 THEN 2230 
F0=1-EXP < - W1 ) 

RETURN 
F0 = 0 
RETURN 
S=1/R1 

M=-<S*B1> 6 X=W 
GOSUB 2330 ' CRLL "NDTR" ( 

W, M , S, W 1 > 

W 1 = F 
F0 = W 1 
! 

RETURN 

F0=<fiTN<Rl*W+Bl j+Pl/2>sPl 
RETURN 

F0 = 1 -EXP < -EXP< fi 1 *W + B 1 > > 
RETURN 

F 0 = E X P < - E X P < R1 * W + B 1 ) > 

RETURN 

! XXXXXXXXXXXXXXXXXXXXXXXXX 
X 

2330 ! SUB " NDTR '* < X, M, S, P > 

2400 ! XXXXXXXXXXXXXXXXXXXXXXXXX 
X 

2410 H=HBS<<X-M)/S> 

2420 T = 12 ( 1 + . 23 164 13* Fi ) 

2430 D= . 3989423*EXP<-< <X-M)*<X-M 

> / < S X S X 2 > ) > 

2440 P=1-D*T*<COI.330274*T-1 .82 
1256) *T+1.7 8 1 4 7 8 > * T -.356563 



8 > 

*t+ .; 

319381 

5 ) 

2450 

IF 

X <M 

THEN 

P=l-P 

2460 

RETURN 



2470 

! 

xxtxtxxXXXXxxxxxxxxxxxxxx 

2480 

DEF FNH$< I > 


2490 

i 

A- 

XXXXXXXXXXXXXXXXXXXXXXXXX 

2500 

IF 

1 = 1 

THEN 

FNH$="GUMBEL MR 


SS 

IMI" 



2510 

IF 

II 

1=2 

THEN 

FNH$="LOGISTICR 

2520 

IF 

1=3 

THEN 

FNH$= " ESF’ONENZ I 


RLE" 



2530 

IF 

1=4 

THEN 

FNH$="NORMRLE" 

2540 

IF 
c *• 

1 = 5 

THEN 

FNH$="LOGNORMRL 

2550 

c 

IF 

1=6 

THEN 

FNH$="CRUCHY" 

2560 

IF 

1=7 

THEN 

FNH$="GUMBEL MI 


MIMI " 



2570 

IF 

1=8 

THEN 

FNH$="WEI BULL" 

2580 

IF 

1=9 

THEN 

FNH$="PRRET 0" 

2590 

IF 

•i 

1=10 THEN 

FNH$="FREGHE 1 T 

2600 

IF 

I<1 

OR I> 

10 THEN FNH$ = "E 


PRORE 

INPUT" 


2610 

FN 

END 




2620 ! XXXXXXXXXXXXXXXtXXXXXXtXt 
X 

2630 ! SUB GRRF<XO,K0,MO,LO> 
2640 REM ..SUB GRAFICI 
2650 ! XXXXXXXXXxXXXXXXXXXXXXXXX 
X 

2660 GCLERR G SCRLE X<1),X<K0>,8 

4 

, i 


2670 

2680 

2630 

2700 

2710 


2720 

2730 

2740 

2750 

2760 

2770 

2780 

2730 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2830 

2300 

2910 

2920 

2930 

2940 

2950 

2360 

2970 

2980 

2990 

3000 


XRXIS 0, <X<K0J>-X<1 > 10 è Y 

RXIS X<1>,.1 
FOR 1=1 TO ►0 

MOVE X(I),Ma)/(N+l) 6 PLOT 

X< I ),MCI>/<N +1> 

NEX1 I 

MOVE X<1>,Lv1> è FOR 1 = 1 TO 
KO 6 DRRW X < I > , L < I ) 0 NEXT 
I e COPY 
FOR 1=1 TO K0 

MOVE X<I>,MRXC0,-(V0xSQR(N) 
>+r-H I >/N> 

DRRW X<I>,MIN<1,V0/SGR<N) + < 
M<I>-1)/N> 

F'ENUP 
NEXT I 

j 

MOVE X<1>,M1N<1,CM<1)-1>'N+ 
V 0 ^ S 0 R C N > > 

FOR 1 = 1 TO \ O 6 DRRW X < I ) , M 
IN<1,<M<I>-l)^N+V0/SQR<N)) 
NEXT I Gl MOVE X<1),MAX<Ù,M< 
1 ), N-V0/SQR». N) > 

FOR 1=1 TO H0 è DRRW X < I ) , M 
RX<0,M<I)/N-V0/SQR<N >> 

NEXT I 8 COPY 
RETURN 

! XXXXXXXXXXXXXXXXXXXXXXXXX 
X 

DEF FNL<J> 

IF J< = K0 THEN FNL = N4L(J> 

IF J=K1 THEN FNL=N 
FN END 

! XXXXXXXXXXXXXXXXXXXXXXXXX 
! SUB QRNT: QURNTILI E PERI 
ODI DI RITORNO 
PRINT "CRLCOLO DEI QURNTILI 
.5 PER LR MEDIRNR" 

PRINT "VRLÙRI 0<X<1 : < = 0F‘ER 
TÙRNRRE NEL MRIN" 

PRINT "OPZIONE LOGRRITMICR? 
<S/N>" 

INPUT Liti,13 
PRINT " QURNTILE PROB 
P .RITORNO" 

INPUT Zè IF Zx=0 OR Z>=1 TH 
E N 3010 

GOSUB 1770 Gl V = X2*F0 + X1 0 I 
F LIEI,13 ="S" THEN V = EXP(V> 
PRINT USING 2990 ; V,Z,1'd 
-Z > 

IMRGE IX,DDDD.DD,4X,DD.DDD, 
3X,DDDDD.DD 
GOTO 2960 


3010 RETURN ! 


3020 ! GRRF2 : XO TO 
3030 GC LERR X 3 = M I N < T < 1 > , T < K0 > > 

8 X9=MRX<Tc1>,T<K0>> 

3040 SCRLE X < 1 ) , X<K0>,X8,X9 
3050 XRXIS X8,< X(K0)-X(1>)/10 
3060 YRXIS X<1 > 

3070 FOR 1=1 TO K0 8 MOVE X<I>,T 
<I> é PLOT X < I ) , T < I) è NEXT 
I 

3080 MOVE X(1),T(1) 

3090 FOR 1=1 TO K0 è DRRW X<I),R 
1*X<I)+B1 e NEXT I 
3100 FOR 1=1 TO K0 & MOVE X<1>’,T 

<1 ) 

3110 PLOT X<1>,T<I) é IDRRW <X<K 
0)-X(l)>/100,0 
3120 NEXT I 
3130 RETURN 

3140 DRTR 28.9,2, j*4.3,3,^7 . 1,4,3 
9.7,3,42.2,2,44.4,4,46,2,49 
.6,4,53.1,5,56,2,59.8,5,62. 
6,3 

j. 1 50 DRTR 64.1,3,63.9,3, r i .2,2,7 
2.1,2,76.6,2,103,4 


Seguilo figura 2. 


; 
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DIZ 80. 

Un disassemblatore 
interattivo in BASIC per Z80 



Un disassemblatore traduce da linguaggio numerico di macchina in linguaggio assemblativo. 
Esso dovrebbe far parte del corredo del software di base fornito dalle case costruttrici, alla 
stessa stregua dei compilatori, assemblatori, sistemi operativi, interpreti, ecc. Non è presente, 
però, su alcuni personal, specialmente su quelli che adottano microprocessori con un formato 

ed un set distruzioni piuttosto complesso come lo Z80. 


di A. Gentile De Blasi 

I l problema più grosso di fronte al quale ci si 
imbatte nella costruzione di un disassem¬ 
blatore è quello di distinguere le aree dei dati da 
quelle delle istruzioni (/I/ e/2/). In particolare in 
/2/ viene descritto un cross-disassemblatore rea¬ 
lizzato in PL/1 su IBM 370. Come lo stesso autore 
ha fatto notare, l'uso di tale programma è escluso 
agli utenti di microcomputer e personal compu¬ 
ter che hanno una memoria limitata ed usano 
più comunemente il linguaggio BASIC. 

Noi abbiamo voluto, viceversa, soddisfare pro¬ 
prio questa fascia di utenti seguendo un approc¬ 
cio di tipo interattivo. Infatti, il nostro disassembla¬ 
tore è scritto interamente in BASIC e richiede sol¬ 
tanto una memoria di 16 Kbyte (nella versione 
ridotta). 

Il modo con cui abbiamo risolto il problema di 
distinguere le aree dei dati da quelle delle istru¬ 
zioni è stato il seguente. I dati, in genere, sono in 
una zona distinta del programma, ma se messi 
nel mezzo di un programma, essi possono essere 
inseriti solo dopo istruzioni di salto incondizionato. 

Allora abbiamo inserito nel nostro programma 
disassemblatore un controllo su tutti i tipi di istru¬ 
zioni di salto incondizionato. Cioè, ogni volta che 
una tale istruzione viene incontrata, dopo averla 
tradotta regolarmente in simbolico, viene calco¬ 
lato e quindi scritto sulla stessa linea l'indirizzo ( in 
decimale) a cui tale istruzione punta, dopodiché 
viene eseguita una istruzione di STOP. A questo 
punto si può richiedere di continuarea disassem¬ 
blare dalla locazione di memoria indicata dalla 
istruzione di salto. 

In questo modo si riesce a realizzare, seguendo 
il flusso del programma attraverso le sue istruzioni 
di salto, una copertura completa dello stesso. Un 
problema attualmente non risolto nei disassem¬ 
blatori è dato dalla presenza di istruzioni di salto 
con indirizzo implicito (per es. nello Z80 le istruzio¬ 
ni JP(HL), JP(IX+d),JP(IY+d)).Tali istruzioni effet¬ 
tuano il salto ad un indirizzo di memoria che è 
noto solo all'atto dell'esecuzione del program¬ 
ma. 

Noi riteniamo, comunque, che l'approccio inte¬ 
rattivo del nostro disassemblatore permetta di 
aumentare in maniera notevole il grado di coper¬ 
tura delle istruzioni disassemblate, anche in pre¬ 
senza di istruzioni del tipo suddetto. 


Esecuzione del programma 
di disassemblagglo 

Dopo aver caricato in memoria il disassembla¬ 
tore, si dà l'avvio per la sua esecuzione: 

RUN 

? _ 

Questo rimane in attesa dell'indirizzo iniziale e di 
quello finale (in decimale) dell'area di memoria 
contenente il programma da disassemblare. 

RUN 

7 49152, 57343 

> 

Nell'esempio è stato scritto come indirizzo iniziale 
49152 = C000H e come indirizzo finale 57343 = 
DFFFH. Questi sono i limiti di memoria EPROM del¬ 
l'interprete BASIC del Nanocomputer della SGS. In 
figura 1 è presentato il listing ditale interprete fi no 
alla prima istruzione di salto incondizionato in¬ 
contrata. 

A questa istruzione l'esecuzione si è arrestata 
fornendo l'indirizzo in decimale della locazione di 
memoria a cui tale istruzione punta (50145). 

A questo punto si può rieseguire il RUN fornendo 
come indirizzo di partenza 50145: 

RUN 

? 50145, 57343 

> 

Si ottiene così, il listing di figura 2. Dalle figure 1 e 2 
si può notare come, anche per le istruzioni di 
chiamata a subroutine, viene scritto accanto 
all'istruzione disassemblata l'indirizzo in decimale 
della subroutine chiamata; questo è molto utile 
per poter eseguire separatamente il disassem¬ 
blaggio delle varie subroutine chiamate. 

A tal fine è stato introdotto nel programma del 
disassemblatore anche un controllo sulle istruzio¬ 
ni di ritorno a subroutine, dopo le quali viene 
eseguito uno STOP. 

Come si può notare in figura 1, la prima subrouti¬ 
ne chiamata è nella locazione 56812 = DDECH; il 
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suo disassemblaggio è in figura 3 dove al presen¬ 
tarsi dell'istruzione RET il listing è interrotto auto¬ 
maticamente. 

L'indirizzo decimale viene anche stampato ac¬ 
canto alle istruzioni di salto condizionato perfaci- 
litare l'interpretazione del programma disassem¬ 
blato. Inoltre, per le istruzioni di salto di tipo relati¬ 
vo, il programma calcola l'indirizzo assoluto e lo 
stampa sia in decimale che in esadecimale. 


Dump della memoria 

Infine, questo disassemblatore permette di fare 
un DUMP della memoria dalla locazione deside¬ 
rata, utile per effettuare la stampa delle zone di 
memoria dove vi sono i dati. Questa viene effet¬ 
tuata riportando l'indirizzo in esadecimale ed il 
contenuto di 16 byte consecutivi per ogni linea di 
stampa, come si può vedere in figura 4. 


DISASSEMBLRGGIQ 


^49132 OC000H) 


LOCRZIONE 

ISTRUZIONE 

SIMBOLICO 

DEST. 


MACCHINR 


(DEC. ) 

C000 

FB 

EI 


C001 

21 B3 C2 

LD HL,C2B3H 


C004 

01 70 00 

LD BC,0070H 


C007 

11 02 10 

LD DE,1002H 


C00R 

ED B0 

LDIR 


C00C 

EB 

EX DE,HL 


C00D 

F9 

LD SP,HL 

.. , V*: -v r 

C00E 

CD EC DD 

CRLL DDECH 

'SJ6812 

^H>**)*J«IV 

C011 

CD 0E DE 

CRLL DE0EH 

3(5846 

C014 

CD FI C4 

CRLL C4F1H 

30417 

C017 

CD 3F Cfl 

CRLL CRaftL^^^^$ 



C098 

C098 

C09E 

C0R1 

C0A4 

C0R7 

C0RR 


CD 

BE 

D7 

21 

RR 

C0 

CD 

7D 

D0 

CD 

FI 

C4 

CD 

11 

10 

C3 

E1 

C3 





■ 0 * 1 ^ 
,<1067H) 

LD DE/1234H 

SBC HL,DE 

CRLL D7BEH 

LD HL/C0RRH 

CRLL D07DH 

CRLL C4F1H 

CRLL 101IH 

_^****~"— **- 

f JP C3E1H 




30380 




33230 


33373 

30417 






[ÌH^N 



Figura 1 - Output del 
disassemblatore. In pri¬ 
ma colonna sono stam¬ 
pati gli indirizzi esadeci- 
mali delle successive 
istruzioni disassembla¬ 
te. In seconda e terza co¬ 
lonna sono riportate le 
istruzioni in numerico e 
le corrispondenti istru¬ 
zioni disassemblate. 
Nell'ultima colonna è 
stampato (in decimale) 
l'indirizzo di destinazio¬ 
ne per le istruzioni di 
trasferimento del con¬ 
trollo (salti e salti a su¬ 
broutine). Il disassem¬ 
blaggio viene interrotto 
al primo salto incondi¬ 
zionato: nell'esempio, 
alla locazione C047 do¬ 
ve c'è l'istruzione JP 
C3E1. il disassemblag¬ 
gio può essere fatto pro¬ 
seguire dalla C3E1H = 
50145 (figura 2). 
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Conclusione 



Figura 2 - Output del 
disassemblatore a co- 
mirici are dalla locazione 
di destinazione del pri¬ 
mo salto incondizionato 
(incontrato in figura 1). 
Si noti come, anche per i 
salti relativi, viene forni¬ 
to l'indirizzo di destina¬ 
zione. Questo viene cal¬ 
colato a partire dall’in¬ 
dirizzo relativo e stam¬ 
pato sia in esadecimale, 
per aiutare nell'analisi 
del programma, che in 
decimale per eventuali 
richieste di disassem¬ 
blaggio a partire da tale 
locazione. 




RUN 6000 
? _ 

L'esecuzione del programma di DUMP inizia dalla 
linea 6000 del programma disassemblatore, per 
cui, dopo aver effettuato il RUN 6000, il sistema è 
in attesa degli indirizzi, iniziale e finale (in deci¬ 
male) della zona di memoria di cui si vuole il 
DUMP. 

RUN 6000 
7 49152, 49232 

> 

A scopo dimostrativo è stato fatto il DUMP delle 
stesse locazioni di memoria di figura 1, anche se 
queste contengono istruzioni e non dati. 


Il programma completo del disassemblatore, 
con DUMP di memoria e calcolo degli indirizzi a 
cui puntano le istruzioni di salto e di chiamata a 
subroutine, è scritto interamente in BASIC. 

Per venire incontro alle esigenze di utenti di mi¬ 
crocomputer aventi una quantità di memoria 
RAM non superiore a 16 Kbyte è stato realizzato 
un disassemblatore “ridotto" in cui è stata elimi¬ 
nata la codifica del codice esadecimale in sim¬ 
bolico di alcune istruzioni poco usate (queste 
sono le istruzioni di shift, di rotazione e di manipo¬ 
lazione di bit). 

Con questa versione ridotta, quando una delle 
istruzioni su citata è incontrata durante la fase di 
disassemblaggio, viene stampato (come per le 
altre istruzioni) l'indirizzo esadecimale ed il codi- 


Ia- 




A-**" 




DISRSSEMBLRGGIQ ?« 30143 < 


C407 

C409 

C40C 

C40D 


38 F3 
CD 63 C7 
3C 
3D 




-C3E1H) \ 

J 






L0CRZI0NE 

ISTRUZIONE 

SIMBOLICO 

DEST. 


MRCCHINR 


(DEC. ) 

C3E1 

CD DD C6 

CRLL C6DDH 

30909 

C3E4 

RF 

X0R R 


C3E3 

32 6B 10 

LD < 106BH >,R 


C3E8 

32 61 10 

LD < 1061H >,fì 


C3EB 

32 66 10 

LD < 1066H ),R 


C3EE 

3R 31 11 

LD R>(1131H) 


C3F1 

87 

OR R 


C3F2 

C4 DB DE 

, CRLL NZ.DEDBH 

37031 

C3F3 

CD 33 CR 

CRLL CR33H 

31763 

C3F8 

21 2C C3 

LD HL.C32CH 


C3FB 

CD 7D D0 

CRLL D07DH 

33373 

C3FE 

21 FF FF 

LD HL/FFFFH 


C401 

22 80 10 

LD < 1080H)iHL 


C404 

CD C9 C3 

CRLL C3C9H 

30633 





C3FEH 


V. iW** 


^ e sfOT174 9 
31123 
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ce esadecimale dell'Istruzione, dopodiché il pro¬ 
gramma disassemblatore passa ad esaminare la 
prossima istruzione. Cioè l'unica differenza con le 
altre istruzioni è che di queste non viene effettua¬ 
ta la traduzione in simbolico, (v. figura 5). Questo 
non è un inconveniente molto grave poiché, co¬ 
me si è già detto, tali istruzioni sono molto rare in 
un generico programma per cui non sarà poi una 
gran fatica tradurre manualmente il simbolico 
corrispondente per queste sole istruzioni. 

Come si può vedere da figura 5, le istruzioni di 
indirizzo esadecimale DDDA, DDDC e DDE1 non 
sono state disassemblate. 

Comunque esiste un disassemblatore completo 


per utenti con memoria maggiore di 16 Kbyte. 
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Figura 3 - Listing della 
subroutine con indirizzo 
iniziale 56812. 

Tale indirizzo è stato ot¬ 
tenuto esaminando un li¬ 
sting precedente (quello 
di figura 1). Per permet¬ 
tere la stampa delle su¬ 
broutine, un’ulteriore 
condizione di arresto del 
disassemblaggio è costi¬ 
tuita dall’istruzione di 
ritorno al programma 
chiamante (istruzione 
RET). 
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Figura 4 - Dump della 
memoria. Ogni riga con¬ 
tiene 10H = 16 byte di 
memoria. 


Figura 5 - Esempio di 
output del disassembla¬ 
tore ridotto. Si noti co¬ 
me alcune istruzioni, CB 
1C, CB 1D e CB CC, 
benché correttamente ri¬ 
portate nella parte nu¬ 
merica, non sono state 
disassemblate per man¬ 
canza di memoria. Que¬ 
ste istruzioni sono relati¬ 
vamente poco frequenti 
e possono essere tradot¬ 
te a mano. Il disassem¬ 
blatore completo , vice¬ 
versa, fornisce il listing 
disassemblato di tutte le 
istruzioni incontrate. 



C000 

F0 

21 

03 

C2 

01 

70 

00 

11 

02 

10 

o 

LU 

B0 

EB 

F9 

CD 

EC 

C010 

DD 

CD 

0E 

DE 

CD 

FI 

C4 

CD 

3F 

CR 

32 

05 

11 

32 

34 

12 

C020 

21 

B8 

C0 

CD 

7D 

D0 

CD 

FI 

C4 

21 

E0 

C0 

CD 

7D 

D0 

CD 

C030 

15 

C5 

38 

F5 

CD 

05 

C7 

B7 

28 

IR 

CD 

69 

C8 

B2 

20 

E9 

C040 

70 

FE 

0F 

38 

E4 

32 

64 

10 

D6 

0E 

30 

FC 

C6 

1C 

2F 

3C 


C050 03 


D I S R 8 

SEMBLRGGIO 

» 56785 (-DDD1H) 


10CRZI0NE 

ISTRUZIONE 

SIMBOLICO 

DEST. 


MRCCHINR 


(DEC.) 

DDD1 

30 FB 

JR NC.F8H DDCEH 

56782 

DDD3 

2R 7D 10 

LDHL/C107DH) 


DDD6 

7R 

LD fl;D 


DDD7 

D6 12 

SUB 12H 


DDD9 

37 

SCF 


DDDR 

icj> 



DDDC 

\CB 1D y 



DDDE 

3C 

' INC R 


DDDF 

20 F8 

JR NZ,F8H DDD9H 

56793 

DDE1 

******jm****'* 



DDE3 

3F 

CCF 


DDE4 

8C 

RDC R/H 


DDE5 

20 03 

JR NZ.03H DDERH 

56810 • 

• 

DDE7 

22 7B 10 

LD < 107BH)jHL 


DDER 

18 C7 

JRC7H DDB3H 

56755 

DDEC 



.. 
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Listato 1 - // programma 
DIZ '80. 

i GOTO 20000 
100 REM 

110 Ni-HEXÌ(N) 

120 IF LEN(N*>-1 THEN Nf-"0"+Nf 
130 RETURN 
130 REM 

160 N*PEEK CRN)'GOSUB 100 
170 RETURN 
200 REM 

210 X-INT<D/236) 

220 Hf*HEX0< X ) : X*«HEXS(D-X*236> 

230 IF LEN(H*)-1 THEN H0*"0"+H$ 

240 IF LEN(Xf)*l THEN XM M 0 M +XÌ 
230 H0«H$+XI 
260 RETURN 

300 IF OP*PP GOTO 340 

310 IF OP<PP THEN PP—l'RESTORE 

320 FOR I -PP+1 TO OP 

330 RERD S0/N0'NEXT I 

340 RETURN 

400 RN*RN+1 ! fi*R+l 1 GOSUB 130'LPRINT N$> 
410 N3*-Nf 

420 RN*RN+1 : R»fl+1 : GOSUB 130 «LPRINT N$j 
430 RETURN 

300 RN»RN+1 ! R+l : GOSUB 130=LPRINT NfJ 

310 RETURN 

600 FOR 1*0 TO OP 

610 RERD Sf : NEXT I 

620 RETURN 

630 REM 

660 IF R<*32767 THEN RN*R « GOTO 600 
670 RN-R-63336 
680 RETURN 
1000 OP-PEEK(RN) 
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Seguito programma DIZ 
80 . 



1010 IF OP-9 THEN LPRINT/, "HDD " i ZBj", BC" 1 GOTO 20230 

1020 IF OP-23 THEN LPRINT,, "ADD " )Z*i ",DE" 'GOTO 20230 

1030 IF OP-33 THEN GOSUB 400=LPRINT,,"LD "jZIi",">NÌjN3Ì;"H"'GOTO 20230 

1040 IF OP-34 THEN GOSUB 400 ! LPRINT,,"LD C"jN0ìN30j"H)";Z f«GOTO 20230 

1030 IF OP-33 THEN LPRINT,,"INC Zi'GOTO 20230 

1060 IF OP-41 THEN LPRINT,/'flDD " iZ%i ","JZi«GOTO 20230 

1070 IF OP-42 THEN GOSUB 400 - LPRINT,, “LD " ) " J NÌJ N3Ì, "H )" 1 GOTO 20230 

1080 IF OP-43 THEN LPRINT,, "DEC "jZ i«GOTO 20230 

1090 IF 0P-32 THEN GOSUB 300•LPRINT,,"INC <";Zi;"♦" jNÌj"H>"«GOTO 20230 

1100 IF OP-33 THEN GOSUB 300 : LPRINT,,"DEC <";Zi;" + "jNi;"H)" 1 GOTO 20230 

1110 IF OP-34 THEN GOSUB 400 : LPRINT,, "LD ( ".«ZÌJ "+";N3Ì; "H), " jNÌj "H" «GOTO 20230 

1120 IF QP-37 THEN LPRINT,,"flDD ";Z*J",SP"« GOTO 20230 
1130 IF OP-70 THEN GOSUB 300=LPRINT,,"LD B,<"jZÌ;"+"jNÌ;"H>"‘GOTO 20230 

1140 IF OP-78 THEN GOSUB 300 : LPRINT,,"LD C,< H iZ*i jNÌj "H) M «GOTO 20230 

1130 IF OP-86 THEN GOSUB 300 : LPRINT,,"LD D,<">ZÌJ"+";NÌ; "H>" «GOTO 20230 

1160 IF OP-94 THEN GOSUB 300 : LPRINT,,"LD E,(";Z4;"+"jNÌ; "H)" «GOTO 20230 


1170 

IF 

OP-102 

THEN 

GOSUB 

300=LPRINT,,"LD 

H,<";Z4;"+";NÌ;"H)" 

«GOTO 

20230 

1180 

IF 

OP-110 

THEN 

GOSUB 

300=LPRINT,,"LD 

L,( ";ZÌ; "+";N$< "H) n 

«GOTO 

20230 

1190 

IF 

OP-112 

THEN 

GOSUB 

300=LPRINT,,"LD 

<";ZÌi"+";NÌ;" 

H ),B" 

«GOTO 

20230 

1200 

IF 

OP-113 

THEN 

GOSUB 

300=LPRINT,,"LD 

Zi;"+";Ni;" 

H ) , C " 

«GOTO 

20230 

1210 

IF 

OP-114 

THEN 

GOSUB 

300=LPRINT,,"LD 

("; Zi;" + "; NI;" 

H),D" 

«GOTO 

20230 

1220 

IF 

OP-115 

THEN 

GOSUB 

300=LPRINT,,"LD 

<";ZÌ;"+";Ni;" 

H),E" 

«GOTO 

20230 

1230 

IF 

OP-116 

THEN 

GOSUB 

500=LPRINT,,"LD 

<";ZÌ;"+";Ni;" 

H),H" 

«GOTO 

20230 

1240 

IF 

OP-117 

THEN 

GOSUB 

300 = LPRINT,,"LD 

<";ZÌ;"+";NÌ;" 

H ), L" 

«GOTO 

20230 

1230 

IF 

OP—119 

THEN 

GOSUB 

300=LPRINT,,"LD 

<";ZÌ;"+";NÌ;" 

H ), A " 

«GOTO 

20230 

1260 

IF 

OP-126 

THEN 

GOSUB 

500 = LPRINT,,"LD 

fl,(";ZÌ;"+";NÌ;"H>" 

«GOTO 

20230 

1270 

IF 

OP-134 

THEN 

GOSUB 

300=LPRINT,,"flDD 

i fl,<";ZÌ;"+";NÌ;"H) 

" > GOTO 

l 20230 

1280 

IF 

OP-142 

THEN 

GOSUB 

300 «LPRINT, , "ADC 

: A,<";Zi;"+"jNi;"H) 

" « GOTO 

i 20230 

1290 

IF 

OP-130 

THEN 

GOSUB 

300«LPRINT,,"SUB 

i <";ZÌ;"+";NÌ; 

"H )" « 

GOTO 20230 

1300 

IF 

OP-158 

THEN 

GOSUB 

300«LPRINT,,"SBC 

A,<";ZÌ;"+";NÌ;"H) 

" « GOTO 

l 20230 

1310 

IF 

OP-166 

THEN 

GOSUB 

300 «LPRINT,,"AND <" ;ZÌJ;NÌ; 

"H>"« 

GOTO 20230 

1320 

IF 

OP-174 

THEN 

GOSUB 

300 «LPRINT ,, "XOR 

: < “;2>j"+“ 

"H)"« 

GOTO 20230 

1330 

IF 

OP-182 

THEN 

GOSUB 

300«LPRINT,,"OR 

(";ZÌ;"+";NÌ;" 

H)"'GOTO 20230 

1340 

IF 

OP-190 

THEN 

GOSUB 

300 « LPRINT,,"CP 

<";ZÌ;"+";Ni;" 

H)"'GOTO 20230 

1330 

IF 

OP-223 

THEN 

LPRINT 

,,"POP " J Zi « GOTO 

20230 




1360 

IF 

OP-227 

THEN 

LPRINT 

,, "ex <SP>,\'Zr 

rmn pno'ìCH 




1370 

IF 

OP-229 

THEN 

LPRINT 

,, "PUSH " j Zi = GOTO 20230 




1300 

IF 

OP-233 

THEN 

LPRINT 

,,"JP CjZÌj")"» 

GOTO 20230 





V 
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1390 IF OP-249 THEN LPRINT,,"LD SP, M ;ZrGOTO 20230 
.1510 GOSUB 400 ! LPRIHT : GOTO 20230 

1600 IF 0P»56 OR OP-24 OR OP-48 OR 0P*32 OR OP-40 GOTO 1620 

1610 LPRINT : GOTO 20230 

1620 R-PEEKCRNH2 

1630 IF R>129 THEN R-R-256 

1635 D-R+fl-1 

# 

1640 GOSUB 200 : LPRINT,H#j"H",D'GOTO 20230 

1630 IF0P“195 OR 0P“218 OROP-230 OR OP-210 OR 0P=194 OR OP-242 OR 0P“234 OR 0P=2 
26 OR OP*202 GOTO 1630 

1660 IF OP*203 OR OP-220 OR OP-232 OR 0P*212 OR OP-196 OR 0P*244 OR 0P=236 OR OP 
*228 OR OP*204 GOTO 1680 

1663 GOSUB 650 

1670 LPRINT ‘GOTO 20230 

1680 flP=PEEK(RN 1*256+PEEK< flN-1) : LPRINT ,, AB-GOTO 20230 

4030 DATA "NOPM0,"LD BC,%31/"LD <BC ), RM0, "INC BCM0/’INC B",10 


Seguilo programma D1Z 

SO. 



non perdete 
il nuovo numero di 


VIC Pilot 

Grafici ad alta risoluzione 
con il TI99/4A 

Programmerà tool kit 
per Commodore 64 

Othello per ZX Spectrum 

Alcuni trucchi dello Spectrum 
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Seguito programma DIZ 
80 . 
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Seguito programma DIZ 
80 . 



non perdete 
il nuovo numero di 


Il favoloso Zaxxon 

Video Giochi compie 
un anno 

Il videogioco del mese 
Tutte le novità da bar 
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Seguito programma DIZ 
80 . 



6000 REM 

6010 INPUT R;RM 
6020 Z*0 : ZM*RM-fì+l 
6030 LPRINT 

6030 D-R«GOSUB 200'LPRINT Hi; 

6060 FOR Y-l TO 16 
6063 GOSUB 630 

6070 GOSUB 130 «LPRINT Ni;" "j 
6080 Z-Z+l 

6090 IF Z>*ZM GOTO 6120 
6100 R-fl+l'NEXT Y 
6110 GOTO 6030 
6120 LPRINT «END 
20000 REM 
20010 INPUT R,RM 

20012 LPRINT « LPRINT « LPRINT « LPRINT « LPRINT « LPRINT 
20015 LPRINT"D ISfìSSEMBLflGGIO « ";R; 

20020 CB*203 : DD*221« ED-237« FD*233 

20021 TZ*“1«PP*-1 

20022 IF R<*32767 THEN RN*fì«GOTO 20030 
20024 RN*R-63336 

20026 D»R«GOSUB 200« LPRINT " <-";HÌ;"H>" 

20027 LPRINT«LPRINT 

20028 LPRINT "LOCRZIONE";"ISTRUZIONE";;"SIMBOLICO";;"DEST." 

20029 LPRINT;"MRCCHINR";;;;"(DEC.)"«LPRINT 

20030 D*fl« GOSUB 200« LPRINT Hi; 

# 

20033 PP*TZ 

20035 IF PP-193 OR PP*24 OR PP*201 THEN STOP 

20040 GOSUB 130» LPRINT N$; " "j 

20030 OP-PEEKCRN)« TZ-OP 

20060 IF OP*CB GOTO 20260 

20070 !F OP*ED OR OP*DD OR OP*FD GOTO 20290 

20102 GOSUB 300 

20110 L-INTCNB/10)' T-NB-L*10 

20130 ON L GOTO 20140;20130;20190 

20140 LPRINT ;;Si«GOTO 20230 

20150 RN-RN+1 «R-R+l «GOSUB 130«LPRINT Ni; 
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20160 IF T-l THEN LPRINT ,,S>J'GOSUB 130'LPRINT N«;"H">'GOTO1600 
20170 LPRINT,, LEFT$<S>,3);'GOSUB 130'LPRINT 

20190 LPRINT RIGHT*<S*,3)'G0T0 20230 

20190 BN-fiN+1' R-fl+1'GOSUB 130 'LPRINT NS;" ";'Y*»N* 

20200 flN-BN+l'fi-B+1' GOSUB 130'LPRINT N0; 

20210 IF T-l THEN LPRINT, ,S*;N»jY*;"H"j'GOTO 1650 

20220 LPRINT,, LEFTKS»,6>;N*; Y*; "H"jRIGHT*<S*,4>'G0T0 20230 

20230 RN a RN+l« fì*fl+l 

20240 IF R>Rf1 THEN END 

20230 GOTO 20030 

20260 RN-RN+1«R-fl+1 

20270 GOSUB 130 1 LPRINT N*J" M ; 

20280 LPRINT-GOTO20230 

20290 RN S RN+1 : R a R+l : GOSUB130 : LPRINT N$; M % 

20292 N25-N* 

20294 IF OP-ED GOTO 20700 

20296 IF OP»DD THEN 2**"IX"*GOTO 1000 

20298 Z*«"IY”»GOTO 1000 

20700 OP*PEEK< RN) 

20710 IF 0P*64 THEN LPRINT,, "IN B,<C>"‘GOTO20230 
20720 IF 0P*63 THEN LPRINT,,"OUT <C),B" : GOTO 20230 
20730 IF 0P*66 THEN LPRINT,,"SBC HL,BC"-GOTO 20230 

20740 IF 0P-67 THEN GOSUB 400 «LPRINT,,"LD <";N*;N3*;"H>,BC"« GOTO 20230 

20730 IF OP-68 THEN LPRINT,, "NEG" « GOTO 20230 

20760 IF 0P*69 THEN LPRINT,,"RETN" ! GOTO 20230 

20770 IF OP*70 THEN LPRINT,,"IM 0"=GOTO 20230 

20780 IF 0P*71 THEN LPRINT,,"LD I,fl"«GOTO 20230 

20790 IF OP-72 THEN LPRINT,,"IN C,(C)"'GOTO 20230 

20800 IF 0P a 73 THEN LPRINT,,"OUT <C>,C" : GOTO 20230 

20810 IF 0P*74 THEN LPRINT,,"RDC HL,BC"‘GOTO 20230 

20820 IF OP-73 THEN GOSUB 400 LPRINT,,"LD BC,(";N*;N3$;"H)" : GOTO 20230 

20830 IF OP-77 THEN LPRINT,,"RETI"=GOTO 20230 

20840 IF 0P*79 THEN LPRINT,,"LD R,fl"'GOTO 20230 

20830 IF OP-80 THEN LPRINT,,"IN D,(C)"-GOTO 20230 

20860 IF OP-81 THEN LPRINT,,"OUT <C>7D"’GOTO 20230 

20870 IF OP-82 THEN LPRINT,,"SBC HL,DE"«GOTO 20230 

20880 IF OP-83 THEN GOSUB 400«LPRINT,, "LD < " ) N*;N3Ì; "H),DE" 1 GOTO 20230 

20890 IF 0P a 86 THEN LPRINT,,"IM 1">GOTO 20230 


Seguito programma D1Z 
80 . 
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Seguilo programma DIZ 
80 . 



20900 IF OP-87 THEN LPRINT,,"LD R,I"«GOTO 20230 

20910 IF OP-88 THEN LPRINT,,"IN EACV’GOTO 20230 

20920 IF OP-89 THEN LPRINT,,"OUT <C>, E" 'GOTO 20230 

20930 IF OP-90 THEN LPRINT,,"RDC HL,DE" : GOTO 20230 

20940 IF OP-91 THEN GOSUB 400=LPRINT,,"LD DEA "jN$jN3Ì; M H)" «GOTO 20230 

20950 IF OP-94 THEN LPRINT,,"IM 2"'GOTO 20230 

20960 IF QP*95 THEN LPRINT,,"LD R,R"«GOTO 20230 

20970 IF OP-96 THEN LPRINT, , "IN HAO"‘GOTO 20230 

20980 IF OP-97 THEN LPRINT,,"OUT <C),H"'G0T0 20230 

20990 IF OP-98 THEN LPRINT, , "SBC HL,HL"'GOTO 20230 

21000 IF OP-103 THEN LPRINT/#"RRD M «GOTO 20230 

21010 IF OP a 104 THEN LPRINT./"IN LAC)"«GOTO 20230 

21020 IF OP*105 THEN LPRINT,,"OUT <C),L"'G0T0 20230 

21030 IF QP-106 THEN LPRINT, A'flDC HL/HL" : GCTO 20230 

21040 IF OP-lil THEN LPRINT,,"RLD" : G0T0 20230 

21050 IF OP-114 THEN LPRINT,,"SBC HL,SP"'GOTO 20230 

21060 IF OP*113 THEN GOSUB 400«LPRINT,,"LD C"/NfjN3f;"H),SP"«GOTO 20230 

21070 IF OP-120 THEN LPRINT,," IN RAC)"'GOTO 20230 

21080 IF OP-121 THEN LPRINT,, "OUT <O,fì"'G0T0 20230 

21090 IF OP-122 THEN LPRINT,,"RDC HL,SP"'GOTO 20230 

21100 IF OP-123 THEN GOSUB 400«LPRINT,,"LD SPA"ìN*jN3*j"H>"'GOTO 20230 


21110 

IF 

OP*160 

THEN 

LPRINT,#"LDI"» 

GOTO 

20230 

21120 

IF 

OP-161 

THEN 

LPRINT,,"CPI"' 

GOTO 

20230 

21130 

IF 

OP-162 

THEN 

LPRINT,,"INI"« 

GOTO 

20230 

21140 

IF 

OP-163 

THEN 

LPRINT,/"OUTI" 

'GOTO 

20230 

21150 

IF 

OP-168 

THEN 

LPRINT,,"LDD"« 

GOTO 

20230 

21160 

IF 

OR"169 

THEN 

LPRINT,,"CPD"« 

GOTO 

20230 

21170 

IF 

OP-170 

THEN 

LPRINT,,"IND"« 

GOTO 

20230 

21180 

IF 

OP-171 

THEN 

LPRINT,,"OUTD" 

«GOTO 

20230 

21190 

IF 

OP-176 

THEN 

LPRINT,/"LDIR" 

«GOTO 

20230 

21200 

IF 

OP-177 

THEN 

LPRINT,,"CPIR" 

«GOTO 

20230 

21210 

IF 

OP-178 

THEN 

LPRINT,,"INIR" 

«GOTO 

20230 

21220 

IF 

OP-179 

THEN 

LPRINT,/"OTIR" 

«GOTO 

20230 

21230 

IF 

OP-184 

THEN 

LPRINT,,"LDDR" 

«GOTO 

20230 

21240 

IF 

OP-185 

THEN 

LPRINT,,"CPDR" 

•GOTO 

20230 

21250 

IF 

OP-186 

THEN 

LPRINT,,"INDR" 

«GOTO 

20230 

21260 

IF 

OP-187 

THEN 

LPRINT,,"OTDR" 

«GOTO 

4 

20230 
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Immersione rapida! 
Preparare i siluri! 


Ecco a voi un gioco veramente originale che potrete programmare sulla vostra 

Casio FX 702P. 
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di G. Albedini 

P otrete sfruttare al massimo il vostro compu¬ 
ter tascabile per giocare ai livelli dei veri 
video-game. 

Dovete infatti giocare astutamente la vostra riser¬ 
va di sette siluri per affondare le navi nemiche 
che scorrono sul display e che state puntanto 
attraverso il mirino del periscopio del vostro som¬ 
mergibile. 

Naturalmente potete puntare le camere di 
lancio con un semplice tocco sui tasti della vostra 
Casio e inseguire così il bersaglio. Con un sempli¬ 
ce tocco farete anche partire il siluro. Ma atten¬ 
zione! Le navi affonderanno solo se al momento 
in cui sparerete un siluro, si troveranno esatta¬ 
mente sopra la croce del mirino. Il punteggio che 
otterrete sarà relativo al tipo di imbarcazione col¬ 
pita e sarà tanto più alto quanto minore sarà il 
tempo impiegato ad affondarla. Avrete inoltre 
una sorpresa se sarete dei veterani del mare e 
riuscirete a centrare il bersaglio nel tempo mini¬ 
mo (tempo 1 )! 

Dovrete fare anche i conti con le mine che 
galleggiano minacciose a mezz'acqua, innocue 
per le navi nemiche ma micidiali per voi! Una di 
esse compare casualmente durante tutta la par¬ 
tita, mentre l'altra rimarrà se supererete i 40 punti. 
Naturalmente dovrete cercare di ottenere il pun¬ 
teggio più alto possibile e se supererete il BEST 
SCORE ottenuto fino a quel momento, il vostro 
nome comparirà all'inizio di ogni partita a me¬ 
moria della vostra bravura. 

Come manovrare il vostro U-Boat? È molto sem¬ 
plice; avete sulla tastiera 5 tasti a vostra disposi¬ 
zione per le manovre, e cioè quelli corrispondenti 
alle lettere C, D, E, F, G. 

Dovrete giocare a due mani in questo modo: 
premendo il tasto C vi muoverete verso sinistra in 
maniera veloce, con il tasto D sempre verso sini¬ 
stra, ma più lentamente. Analogamente verso 
destra con i tasti G(veloce) e F(lento). Premendo 
E farete invece partire il siluro. 

Se il vostro mirino arriverà all'estremità sinistra del 
display ricomparirà a destra e viceversa. 

Ora non rimane che programmare la vostra FX 
(attenzione al n° di passi, ben 1009) e iniziare una 
emozionante partita! Buon divertimento e attenti 
alle mine! 



Figura 1 - // listato BA¬ 
SIC. 


1984 e Bit - 63 




























SERVIZIO SOFTWARE 

I Da questo numero Bit propone ai propri lettori i 
dischi o le cassette dei programmi pubblicati. I 
programmi, provati e garantiti, sono di imme¬ 
diato utilizzo. 




Bit n° 

Programma 

Sistema 

Prezzo 

Codice 

Supporto 

38 

Gioco della scimmia 
Spaccamattoni 

Vie 20 

15.000 

VI381A 

Cassetta 

38 

Text-Editor 

PET 3032 

20.000 

PE381B 

PE382B 

Cassetta 

Disco 

38 

Planel 

Apple II 

20.000 

AP382C 

Disco 

39 

Rompicapo 

CBM 4032 

15.000 

PE391A 

Cassetta 


di Rubik 

CBM 3032 

20.000 

PE392B 

Disco 

39 

Breakout 

CBM 3032 

20.000 

PE393A 

Cassetta 

40 

Reporter 

Apple II 

20.000 

AP402C 

Disco 

41 

Discover 

Apple II 

20.000 

' AP412C 

Disco 

42 

Apple-Chef 

Apple II 

20.000 

AP422C 

Disco 

42 

Provariflessi 

VIC 20 

15.000 

VI421A 

Cassetta 

45 

Tiny FORTH 

Apple II 

35.000 

AP452A 

Disco 

45 

Alì Babà 

ZX Spectrum 

15.000 

SP451B 

Cassetta 

45 

1X2 

PET 3032 

15.000 

PE451C 

Cassetta 




SERVIZIO SOFTWARE 


SERVIZIO SOFTWARE 


SERVIZIO SOFTWARE 


Far richiederà I programmi In contrassegno, pagando di rotta monto al postino la cifra Indicata, Invlaro II seguente tagliando 

Spedir# in butta chiusa a Gruppo Editoriale Jackson - Via Roselllni, 12 • 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su Bit. 



Cod. 

Cod. 

Cod. 


Cod. n 


a L. 
a L. 
a L. 
a L. 


Speso postali (contributo fisso) L 2.000 

TOTALI L. 



GRUPPO EDITORIALE JACKSON 


Cognome 
Nome 
Indlrlso 
CAP . 


Città 


che pagherò al postino alla consegna del pacco. 


Firma 







































































